Code Page-Name zu Identifier

[xaromz]

Hallo,

Zitat von himitsu:

kannst sie ja auch gern noch verraten ... ma sehn was mir dann besser gefällt

bitte schön:

Delphi-Quellcode:

function ConvertText(const Text: AnsiString; Charset: Cardinal): WideString;
var
  CharsetInfo: TCharsetInfo;
  L: Integer;
begin
  // Codepage besorgen
  TranslateCharsetInfo(Charset, CharsetInfo, TCI_SRCCHARSET);

  // Puffergröße ermitteln
  L := MultiByteToWideChar(CharsetInfo.ciACP, MB_PRECOMPOSED,
    @Text[1], Length(Text), nil, 0);

  // Puffer anlegen
  SetLength(Result, L);

  // Konvertieren
  MultiByteToWideChar(CharsetInfo.ciACP, MB_PRECOMPOSED,
    @Text[1], Length(Text), @Result[1], L);
end;

Füll einen Text mit seinem Charset rein und Du bekommst das entsprechende Unicode.

Gruß
xaromz