Char to AnsiChar

[PMM]

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;