In string suchen und dann löschen

[himitsu]

Statt Matze's Funktion könnte er es ja auch direkt machen,

Delphi-Quellcode:

Delete(MyString, Pos('Uhrzeit: ', MyString), 9);
Delete(MyString, Pos('Datum: ', MyString), 7);

oder als Prozedur?

Delphi-Quellcode:

procedure DeleteStuff(var S, Del: string);
begin
  Delete(S, Pos(Del, S), Length(Del));
end;

// Aufruf: 
DeleteStuff(MyString, 'Uhrzeit: '); 
DeleteStuff(MyString, 'Datum: ');