Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c