![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
PakMan |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Andrey Репутация: ![]() ![]() ![]() |
здрасти всем, извените что спрашиваю такой простой вопрос... но мне нужно описать 2 кнопки пробывал своими силами но ничего не могу поделать... так вот что мне нужно...
в одном мемо уже есть текст, а второе мемо пока пустое... мне надо чтобы счетчик или курсор шел по строкам, при нажатии первой кнопки он перекидывал ее во второе мемо, и перешел на следущею строку. а при нажатии второй кнопочки, он перешел на следущею строчку... не могу построить цикл, помогите пожайлуста |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Так?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
curr: Integer; // текушая позиция в Memo1
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo1.Lines.LoadFromFile('C:\toMemo.txt'); // заполняемMemo1
curr := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if curr <= Memo1.Lines.Count then
Memo2.Lines.Add(Memo1.Lines[curr]);
curr := curr + 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
curr := curr + 1;
end;
end.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
PakMan |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Andrey Репутация: ![]() ![]() ![]() |
|
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 6:57 |