Huhu,
Danke für die schnelle Antwort.
Hier ein Beispiel (allerdings STATISCH)
Code:
procedure TForm_Main.Generator;
var g,e,o,r:integer;
begin
r:=15;
for g:=1 to r do
for e:=1 to r do
for o:=1 to r do Memo_Output.Lines.Add (IntTOStr(g)+IntTOStr(e)+IntTOStr(o));
end;
Das wäre hier halt 111 bis 282828,
allerdings wird für die Zahl (111) "3" eingeben und ist somit dynamisch, also die Anzahl der Schleifen (Durchläufe) variert.