Из listbox в label

[-=Mafia=-]

Сообщение от Lesha

TTimer ?
......

да через TTimer

[phomm]

Ну надо же )) сам знаешь а ещё и спрашиваешь ))
ну так уж и быть, только до кондиции сам доведешь

var num : integer;
...
procedure form1.timer1timer(sender:tobject);
begin
inc(num);
if num <listbox1.count then
label1.caption := label1.caption+','+listbox1.items[num];
end;

[-=Mafia=-]

Сообщение от phomm

Ну надо же )) сам знаешь а ещё и спрашиваешь ))
ну так уж и быть, только до кондиции сам доведешь

var num : integer;
...
procedure form1.timer1timer(sender:tobject);
begin
inc(num);
if num <listbox1.count then
label1.caption := label1.caption+','+listbox1.items[num];
end;

Большое спасибо!!!

[-=Mafia=-]

Еще вопрос. Почему пропускает первое число и начинает вывод со 2?

[-=Mafia=-]

В listbox имеется ряд чисел, как выводить их в label все по порядку с промежутком, к примеру 5 секунд.

[Lesha]

TTimer ?
......