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

[moelski]

Moin !

Ich bin da eben auf ein tückisches Problem gestossen ...

Gegeben sie diese Funktion:

Delphi-Quellcode:

function TLVELV_HET20.MakeCorrectString(const Data: String): String;
var Erg: String;
begin
  Erg := ReplaceStr(Data, #05#18, #02);
  Erg := ReplaceStr(Erg, #05#19, #03);
  Erg := ReplaceStr(Erg, #05#21, #05);   <---- 

  MakeCorrectString := Erg;
end;

Weiterhin nehmen wir mal diesen Hex String ...

Zitat:

02 05 15 15 07 B2 .....

Diesen Hexstring übergeben wir der Funktion mal und was kommt raus ... Mist
Denn ReplaceStr ersetzt 05 15 durch 05.
Dann haben wir den String 02 05 15 07 B2
Nun steht da aber abermals dummerweise 05 15 und schwupps macht ReplaceStr
daraus wieder ein 05. In dem Fall will ich das aber nicht.

Nu habe ich ein Problem ... Wie kann ich sowas vernindern? Ich möchte also in einem String Teile ersetzen, aber über das resultierenden Ergebnis soll nicht wieder ein ReplaceStr gemacht werden.

Was kann ich nun tun !?