Suchen und ersetzten

[tms]

Hi!
Ich habe einen String und möchte ihn ihm nach einer Buchstabenfolge suchen und diese dann entfernen.

Also so:
text:='hallo test tes qq';

und dann soll man sagen können: lösche te
danach soll dann text:='hallo st s qq'; sein!

Thomas

[Corpsman]

Delphi-Quellcode:

While pos('te',text ) <> 0 do 
  Delete(text,pos('te',text ),length('te'));

[edit] Hatte vergessen die ' zu setzen.

[Der_Unwissende]

Hi,
einfach löschenden Text durch '' ersetzen:

Delphi-Quellcode:

StringReplace('hallo test tes qq', 'te', '', [rfReplaceAll])

Gruß Der Unwisssende