Zahlenkombinationen generieren

[s.h.a.r.k]

Delphi-Quellcode:

procedure TForm_Main.Generator(Start, Stop: Integer);
var
  x, y, z : Integer;
begin
  Memo_Output.Lines.BeginUpdate(); // -> wichtig, wenn man viele Werte
                                   // auf einmal einfügen will
  try
    // Beachte die Format-Funktion, damit schaut es etwas übersichtlicher aus
    for x := Start to Stop do
      for y := Start to Stop do
        for z := Start to Stop do Memo_Output.Lines.Add(Format('%d%d%d', [x, y, z]));
  finally
    Memo_Outpu.Lines.EndUpdate();
  end;
end;