Im Lazarus-Forum habe ich die Funktion UTFToChr gefunden. Vielleicht hilft dir die:
Delphi-Quellcode:
function UTFToChr(const s: string): char;
begin
if s='' then result:=char(0)
else begin
{$IFnDEF fpc}result:=s[1];{$ELSE}
case byte(s[1]) of
194: result:=char((byte(s[2])-163)+128);
195: result:=char((byte(s[2])-130)+160);
226: result:=char(255);
else result:=s[1];
end;{$ENDIF}
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Z: char;
begin
Z := 'a';
Z := UTFToChr('ß'); //Hier wird Fehler gefunden, ebenso nächste Zeile
Z := UTFToChr('ö');
end;
Zumindest kompiliert Lazarus so den Code.