StringReplace mit Tücken ... Lösung gesucht ...

[moelski]

Delphi-Quellcode:

For i := 1 to Length(S) do 
  If Copy(S, i, 2) = #05#18 Then Begin 
    Delete(S, i, 1); 
    S[i] := #02; 
  End Else If Copy(S, i, 2) = #05#19 Then Begin 
    Delete(S, i, 1); 
    S[i] := #03; 
  End Else If Copy(S, i, 2) = #05#21 Then Begin 
    Delete(S, i, 1); 
    S[i] := #05; 
  End;

Many Thx! So gehts.