Zahlen generieren und in Memo schreiben

[Tommy1988]

guten abend.

habe schon einieges rumgetestet (mit inc usw) aber komme zu keinem erfolg.

kann mir jemand sagen, wie ich auf button-klick mir zahlen von
1 - 999 generieren und in ein memo schreiben lassen kann?

[Blackheart]

Mit einer for Schleife und Memo.Lines.add

[EDatabaseError]

Zufallszahlen oder eine Zahlenfolge?

Bei Zahlenfolge:

Delphi-Quellcode:

OnClick:
var
   i: Integer;
begin
 for i := 1 to 999 do
  begin
   Memo1.Lines.Add(IntTostr(i));
  end;
end,

Bei Zufallszahlen:

Delphi-Quellcode:

OnClick:
var
   i1,i2: Integer;
begin
 Randomize;

 Memo1.Lines.Add(Inttostr(random(999));
end;

Mfg