Schleife mit Anhängfunktion

[SyntaxXx]

Hab das jetzt mal mit deinem Code probiert, dann bekomme ich aber das raus:

Zitat:

001
002
003
004
005
006
007
008
009
0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
00000
00001
00002
00003
00004
00005
00006
00007
00008
00009

Das ist leider nicht ganz richtig.

[aurikel_Max]

'tschuldige, da ist was verrutscht:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  s := '';
  for i := 0 to 3 do
  begin
    for j := 0 to 9 do
    begin
      mmo1.Lines.Add(s + IntToStr(j));
    end;
    s := s + '0';
  end;
end;