Also ich hab es je so gemacht:
Delphi-Quellcode:
Function IsSameChar(aAnsiChar: AnsiChar; aChar: Char): Boolean;
Var aStr: String;
begin
aStr := aAnsiChar;
Result := aStr=aChar;
end;
Die Umwandlung AnsiChar -> Char macht die Zuweisung (allerdings auf einen String) automatisch und das funktioniert auch für nicht
ASCII-Zeichen. z.B. liefert das AnsiChar #$80 das Zeichen '€' ($20AC). Die Umkehrung Char -> AnsiChar hab ich nicht hinbekommen. Kein der Funktionen Utf8ToAnsi, UTF8EncodeToShortString oder UnicodeToUtf8 liefert für das Zeichen '€' den Wert $80 zurück.