String einfügen

[Landogar-Garuno]

Danke für eure Hilfe

habe es so gemacht...

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
   I : Integer;
   Target : String ;
begin
    for i := 0 to Richedit7.Lines.Count - 1 do begin
    Target := Richedit7.Lines[i];
    Insert(',', Target, 3);
    Insert(',', Target, 6);
    Insert(',', Target, 9);
    Insert(',', Target, 12);
    Insert(',', Target, 15);
    Insert(',', Target, 18);
    Insert(',', Target, 21);
    Insert(',', Target, 24);
    Insert(',', Target, 27);
    Insert(',', Target, 30);
    Insert(',', Target, 33);
    Insert(',', Target, 36);
    Insert(',', Target, 39);
    Insert(',', Target, 42);
    Insert(',', Target, 45);
    Insert(',\', Target, 48);
   Richedit7.Lines.Add(Target);
    end;
end;

gibt bestimmt bessere lösungen...aber da die länge fest ist...reicht es