Schleife mit Anhängfunktion

[Neutral General]

Hallo,

Delphi-Quellcode:

uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, Eingabe: Integer;
begin
  Eingabe := StrToInt(Edit1.Text);
  for i := 1 to Eingabe do
    for j := 0 to Round(Power(10,i)) - 1 do
      Memo1.Lines.Add(Format('%.' + IntToStr(i) + 'd',[j]));
end;

So würde es z.B. gehen.

PS: Ggf. sollte man die Schleife noch mit einem Memo1.Lines.BeginUpdate und Memo1.Lines.EndUpdate umgeben. Sonst wirds ziemlich lange dauern bei Eingaben ab 5 oder 6.

PPS: Selbst mit BeginUpdate und EndUpdate sind Eingaben ab inklusive 6 nicht mehr zu empfehlen. Das dauert sonst wirklich ewig.