ListBox'a 1-100'e kadar olan sayıları nasıl listeleyebilirim

[sevturk]

s.a. arkadaşlar;
listbox'a 1'den 100'e kadar olan sayıları butona bastımmı listbox'a atayan ve arasında random yapıp label'a gösteren bir yapıyı nasıl hazırlayabilirim, yardımlarınızı bekliyorum... ilginiz için şimdiden hepinizden Allah razı olsun.

[ulu coder]

Kod: Tümünü seç

Var
i:integer;
Begin
  ListBox1.Clear;
  For i:=1 to 100 do ListBox1.Items.Add(inttostr(i));
  Label1.Caption:=FloatToStr(Random(100)+1);//+1 yazmazan sanırım 0-99 arası üretiyor.
End;

[sevturk]

ulu coder'e:
yardımcı olduğun teşekkür ederim.. kodlar çok işime yarayacak.. yalnız 100 yerine 999999 yazınca proje yanıt vermiyo bu sorunu giderebilecek bi çözüm varsa yardımcı olursan teşekkür ederim.. desteklerin için Allah razı olsun.

[hdayi]

Biraz beklemen gerekir,

Kod: Tümünü seç

For i:=1 to 100 do ListBox1.Items.Add(inttostr(i));  

satırını 1 milyon kez tekrarlıyor. Şöyle yapabilirsin belki

Kod: Tümünü seç

    for i := 1 to 999999 do
    begin
        ListBox1.Items.Add(inttostr(i));
        Application.ProcessMessages;
    end;

[sevturk]

hdayi'e;

hdayi arkadaşım verdiğin kod için teşekkür ederim çok yardımcı oldun ilgin için Allah senden razı olun.

[hdayi]

cümlemizden,

@ulu coder'ın verdiği koda ufak bi ek yaptım o kadar.