Delphi-Quellcode:
var
tt :
Array [0..255]
of Byte;
for i:=0
to 255
do
tt:=i;
{-- from xDC -> x9A --}
tt[$
DC]:=$9A;
procedure Translate(
var instr:ansistring);
begin
for i:=1
to length(instr)
do
instr[i]:=ansichar(tt[byte(instr[i])]);
end;
So sollte es funktionieren und Du bist Herr des Verfahrens
(ich hoffe die Klammern stimmen)
(ich würde noch diese Char/Byte - Konvertierung weglassen und das gleich als Array of Byte behandeln)
Gruß
K-H