Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
1-7536
Lion
2003-06-14 22:35
2003.07.03
Как узнать дату ?


14-7692
Knight
2003-06-14 09:59
2003.07.03
Как Алиса Селезнёва перемещалась во времени?


14-7682
ilyasim
2003-06-06 03:48
2003.07.03
OpenGL(Open, open... :D)


8-7556
ak75
2003-03-21 10:37
2003.07.03
---|Ветка была без названия|---


14-7594
VolanD
2003-06-15 10:21
2003.07.03
Mpeg4