Текущий архив: 2003.07.03;
Скачать: CL | DM;
Вниз
Есть Memo1.Edit1,Timer1 Найти похожие ветки
← →
DOR © (2003-06-21 10:05) [0]В memo1.lines 10 каких то слов....вот мне надо чтобы....чтоб taimer один через каждые 5-10-20(без разницы)сначала первая строчка memo1 была в edit1.text через 5 секунд вторая в edit1.text и т.д.
← →
Palladin © (2003-06-21 10:12) [1]ну и? какие проблемы? не знаешь как сделать? может тебе рано еще такие сложности писать?
научись хотя бы простейшие алгоритмы составлять...
← →
jel © (2003-06-21 10:20) [2]
unit Unit1;
{$J+}
...
procedure TForm1.Timer1Timer(Sender: TObject);
const CurrentLine : integer = 0;
begin
Edit1.Text := Memo1.Lines[CurrentLine];
Inc(CurrentLine);
if CurrentLine = Memo1.Lines.Count then CurrentLine := 0;
end;
← →
Anatoly Podgoretsky © (2003-06-21 10:39) [3]Проблема со счетчиком, складывать не умеет.
Страницы: 1 вся ветка
Текущий архив: 2003.07.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
