Bu soruyu yapamadım ?

[AllForYouX]

Merhaba,
Ben delphide ufaktan bişeyler yazmaya çalışıyorum ama bir türlü yazamıyorum.

Soru bu arkadaşlar bir türlü yapamadım tam kodunu verebilir misiniz sürekli bir yerlerde hata veriyor.

Bilgisayar tarafından üretilen 22 tane 4 basamaklı sayıyı ekrana yazdırınız.

[White Rose]

Öncelikle sizin yazdığınız kodu buraya ekleyin ve nerede hata yaptığını belirtin.

[neu84]

Merhaba,
Ben delphide ufaktan bişeyler yazmaya çalışıyorum ama bir türlü yazamıyorum.

Soru bu arkadaşlar bir türlü yapamadım tam kodunu verebilir misiniz sürekli bir yerlerde hata veriyor.

Bilgisayar tarafından üretilen 22 tane 4 basamaklı sayıyı ekrana yazdırınız.

procedure TForm1.Button1Click(Sender: TObject);
var
sayi,I:integer;
begin
for I := 0 to 21 do
begin
sayi:= Random(8999)+1000;
ListBox1.Items.Add(IntToStr(I)+' '+IntToStr(sayi));
end;
end;

[unicorn64]

döngüye girmeden önce de

Kod: Tümünü seç

Randomize;

[AllForYouX]

Teşekkürler sayenizde yaptım.