999 den 9999 a kadar olan sayılar.

[Caqatay]

merhaba arkadaşlar bana 999 dan 9999 a kadar aradaki tüm sayıları listeleyen bir döngü lazım.
yardımcı olabilirmisiniz bir memo ya falan yazdıracağım.

[Caqatay]

Kod: Tümünü seç

Procedure TForm1.Button1Click(Sender; Object); 

var 

Sayi : Real; 

begin 

Sayi := Random(50); // 0-49 arasında ondalıklı sayı üret 

Caption := FloatToStr(Sayi); 

end; 

bunu buldum fakat 50 yerine 9999 yazında 0 dan başlıyor 3 haneliler felanda geliyor bide sıradan yapmıyor random olduğu için yardımlarını için şimdiden teşekkürler

[NeverFear]

belki işini görür. aşağıdaki kodlamayı dener misin?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
  Memo1.Clear;
  for I:= 999 to 9999 do
  begin
     Memo1.Lines.Add(IntToStr(I));
  end;
end;

[Caqatay]

tam aradığım şeydi çok teşekkürler

[NeverFear]

işini görmesine sevindim ...
ne mutlu sana