Hallo....
Danke.
Ich habe auf deinen Tip hin nach Beispielen gesucht und folgendes gefunden:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
const
Search_Text = ';';
var
i: Integer;
Position: Integer;
S: String;
begin
Position := 1;
S := Memo1.Text;
for i := 1 to length(S) do
begin
Position := PosEx(Search_Text, S, Position);
Delete(S, Position, length(Search_Text));
end;
Memo1.Text := S;
end;
Aber so richtig verstanden hab ich das nicht.
Hast du ein Beispiel für mich?