Hallo capo,
hat Deine Zeichenfolge immer diesen Aufbau?
Dann könntest Du folgendes ausprobieren:
Delphi-Quellcode:
var
NewString : string;
i : Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
NewString := LeftStr(Memo1.Lines[i],4) + RightStr(Memo1.Lines[i],7);
Memo1.Lines[i] := NewString;
end;
end;
Funktioniert aber nur, denn die Zeichenfolge immer gleich lang und die Trennzeichen an der gleichen Position sind.
Grüße
Ines