Zitat:
Die Umkehrung Char -> AnsiChar hab ich nicht hinbekommen.
stimmt nicht ganz. Es funktioniert z.B. die "Holzhammermethode":
Delphi-Quellcode:
Function CharToAnsiChar(Const aChar: Char): AnsiChar;
Var I: Integer;
aStr: String;
begin
I := 1;
repeat
aStr := AnsiChar(I);
inc(I);
until (I > 255) or (aStr=aChar);
if (aStr=aChar)
then Result := AnsiChar(I-1)
else raise EConvertError.CreateFmt('Could''nt convert %s to AnsiChar.',[aChar]);
end;
Vermutlich geht es auch mit WideCharToMultiByte (das ist auch das was die genannten UTF8 Konverter intern verwenden, soweit ich das gesehen habe) wenn man die geeignete Codepage usw. auswählt (muss ja zur Laufzeit nicht die deutsche sein...).
So hier noch eine WideCharToMultiByte Variante
Delphi-Quellcode:
Function CharToAnsiCharX(Const aChar: Char): AnsiChar;
Var aStr: String;
aAnsiStr: AnsiString;
Begin
aStr := aChar;
aAnsiStr := ' ';
If WideCharToMultiByte(CP_ACP,0,@aStr[1],-1,@aAnsiStr[1],2,nil,nil) > 0
then begin
if aAnsiStr[2] = #0
then Result := aAnsiStr[1]
else raise EConvertError.CreateFmt('Could''nt convert %s to AnsiChar.',[aChar]);
end
else EConvertError.Create('CharToAnsiCharX: WideCharToMultiByte failed');
end;