Das ist mir schon alles klar.
Hier mein Lösungsansatz (welcher aber nicht funktioniert - der steigt bei einem Except aus der While Schleife aus):
Delphi-Quellcode:
[...]
s:= Line;
Line := '';
while Pos('=', s) > 0 do begin
Fehler := false;
i := 0;
try
i := StrToInt('$' + copy(s, Pos('=', s) + 1, 2));
except
Fehler := true;
end;
if not Fehler then begin
Line := Line + Copy(s, 1, Pos('=', s) - 1) + Chr(i);
s := Copy(s, Pos('=', s) + 3, length(s));
end else begin
Line := Line + '=';
s := Copy(s, Pos('=', s) + 1, length(s));
end;
end;
Line := Line + s;