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

[FriFra]

So sollte es funktionieren. Vorausgesetzt, in deinen Stings kommt niemals wirklich einer der "temporären" strings vor

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~');

  Erg := ReplaceStr(Erg, '~#02~', #02); 
  Erg := ReplaceStr(Erg, '~#03~', #03); 
  Erg := ReplaceStr(Erg, '~#05~', #05);

  MakeCorrectString := Erg; 
end;