Habe ich da was falsch verstanden? Es geht darum einen 8Bit Zeichensatz in einen anderen zu überführen.
Wie wäre es dann mit
Delphi-Quellcode:
case byte(inchar) of
259 : outchar:=159;
etc.
end;
oder gleich eine Übersetzungstabelle:
Delphi-Quellcode:
var
ubersetzungstabelle = Array [0..255] of Byte;
ubersetzungstabelle[259]:=159;
...
macstring:=winstring;
for i:=1 to length(macstring) do
Byte(macstring[i]):=ubersetzungstabelle[byte(macstring[i]);
Solange eine 1:1 Umsetzung möglich ist, sollte das funktionieren.
Gruß
K-H