Проблема с выведением чисел в ListBox

[xrenomx]

Всем привет.Задача вроде легкая а запоролся...Необходимо чтобы в listbox каждую секунду отображались цифры от 1 до 10(т.е. сначала цифра 1,через секунду цифра 2 еще через секунду - 3 и т.д.).

Создаю Listbox и таймер,в таймере по разному химичил но отображалось только разом от 1 до 10 и несколько раз(сделал цикл).

Заодно вопрос,реально ли сделать данную процедуру только в одном таймере?И можно ли обойтись в данном случае без массива?

Вот собственно сам код который я пытался реализовать:

procedure TForm1.Timer1Timer(Sender: TObject);
var
aa:array of integer;
mm:integer;
begin
setLength(aa,10);
for mm:=0 to High(aa) do
begin
aa[mm]:=mm+1;
ListBox1.Items.Add(IntToStr(aa[mm]));
end;

end;
end.

[BlackFishSQL]

Как-то у вас всё сложно, очень сложно!( Может так (я понял вам надо вывести цифры от 1 до 10 в listbox???)

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer //счётчик
begin
 for i:=1 to 10 do 
  ListBox1.Items.Add(IntToStr(i)); 
end;

И интервал у таймера 1000 милсек(1 секунда) поставте. ну и через кнопочку пустите timer1.enabled:=true; Вот наверно как-то так(если я вас правильно понял).

[xrenomx]

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

Как-то у вас всё сложно, очень сложно!( Может так (я понял вам надо вывести цифры от 1 до 10 в listbox???)

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer //счётчик
begin
 for i:=1 to 10 do 
  ListBox1.Items.Add(IntToStr(i)); 
end;

И интервал у таймера 1000 милсек(1 секунда) поставте. ну и через кнопочку пустите timer1.enabled:=true; Вот наверно как-то так(если я вас правильно понял).

В вашем случае у меня цифры появляются все разом(1..10 в столбик),а надо чтобы сначала появилась цифра 1,через секунду цифра 2 и так до 10.

Думаю кнопка с объявлением таймера - истинным - необязательна,это уже штрихи.
Сам таймер настроен на 1 секунду...

[BlackFishSQL]

i:=1;
......
на button вешай
ListBox1.Items.Add(IntToStr(i));
inc(i);

а так (да блин сам не заметил что написал)

[Pein95]

ну тогда сделайте так:

if i=10 then timer.enabled:=false;
listbox1.items.add(inttostr(i);
i:=i+1;

в oncreate формы задайте значение i равно 1.

BlackFishSQL
если он напишет ваш код в событии таймера то там всегда будет добавлятса 1

[BlackFishSQL]

да я отделил точками а тот пусть как Вы написали на фомкреэйт повешает

[xrenomx]

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

ну тогда сделайте так:

if i=10 then timer.enabled:=false;
listbox1.items.add(inttostr(i);
i:=i+1;

в oncreate формы задайте значение i равно 1.

Можно пожалуйста код целиком?А то логику пока не уловил...

в OnCreate прописываю

var
i:integer;
begin
i:=1;
end;

Тоже не понял зачем и для чего,ибо выдает ошибку...

[Pein95]

обявите i как глобальную переменную

[Johnson]

var
i:integer;

Нужно не в событие ОнКриэйт, а в глобальные переменные, там, где обьявлена форма.

[xrenomx]

Не выходит...формкриейт потёр,в гобалку добавил переменную i:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10 do
if i=10 then timer1.enabled:=false;
listbox1.items.add(inttostr(i));
i:=i+1;
end;