UTF-8 nach ASCII (die 1000ste)

[p80286]

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