String einfügen

[himitsu]

fällt dir vielleicht was auf?
gleiche Befehler hintereinander und dabei auch noch gleicher/gleichmäßiger Index.
was sagt uns das nun?

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
   i, i2 : Integer;
   Target : String;
begin
  for i := 0 to Richedit7.Lines.Count - 1 do begin
    Target := Richedit7.Lines[i];
    for i2 := Length(Target) div 2 downto 0
      Insert(',', Target, i2 * 2);
    Richedit7.Lines[i] := Target + '\';
  end;
end;