String auf bestimmte Zeichenfolge überprüfen

[himitsu]

Delphi-Quellcode:

S := 'Ort=#var#';

I := Pos('#var#', S);
If I > 0 Then
  S := Copy(S, 1, I - 1) + 'irrgendwas' + Copy(S, I + 5{länge von "#var#"}, Length(S));

{S = 'Ort=irrgendwas'}

oder

S := StringReplace(S, '#var#', 'irrgendwas', rfReplaceAll);