@neolithos: Danke für den Tip, aber ich muss zugeben, ich checks nicht so recht. Wie verwende ich das in meinem Code?
Bisher sieht es ja so aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var c,i,ii,iii:integer;
begin
c:=listbox1.items.count;
listbox1.Items.Add('');
for i:=0 to c do
begin
for ii:=1 to length(listbox1.Items[i]) do
begin
for iii:=1 to c do
begin
memo1.Lines.Add(
listbox1.Items[c-3][i+1]+
listbox1.Items[c-2][ii]+
listbox1.Items[c-1][iii] );
end;
end;
end;
end;
Aber wie gesagt, geht nur bei 3 Zahlen.
Wie kann ich das jetzt mit deinem Code verbinden?
MfG synex