Hallo,
ein kleiner Ansatz:
Im Edit1.Text steht die Zahlenfolge.
Die Schritte werden im Memo dokumentiert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Byte;
DummyChar: char;
DummyString:String;
begin
for i:=1 to length(edit1.Text) do
begin
DummyString:='';
Memo1.Lines.add(Edit1.Text);
DummyChar:=Edit1.text[1];
for j:= 2 to length(Edit1.Text) do
DummyString:=DummyString+Edit1.text[j];
DummyString:=DummyString+dummyChar;
Edit1.Text:=DummyString;
end;
end;
Grüße
Klaus