Delphi實現AnsiString與WideString的轉換函數 轉

Delphi實現AnsiString與WideString的轉換函數

分類： Delphi 2013-01-26 16:23   460人閱讀   評論(0)   收藏   舉報

在Delphi下，AnsiString 和 WideString 的存儲與管理各有不同，這里提供互相轉換的函數一對。
/// Wide String -> Ansi String
function WideStringToAnsiString(const strWide: WideString; CodePage: Word): AnsiString;
var
  Len: integer;
begin
  Result := '';
  if strWide = '' then Exit;

  Len := WideCharToMultiByte(CodePage,
    WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
    @strWide[1], -1, nil, 0, nil, nil);
  SetLength(Result, Len - 1);

  if Len > 1 then
    WideCharToMultiByte(CodePage,
      WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
      @strWide[1], -1, @Result[1], Len - 1, nil, nil);
end;

/// Ansi String -> Wide String
function AnsiStringToWideString(const strAnsi: AnsiString; CodePage: Word): WideString;
var
  Len: integer;
begin
  Result := '';
  if strAnsi = '' then Exit;

  Len := MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, nil, 0);
  SetLength(Result, Len - 1);

  if Len > 1 then
    MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, PWideChar(@Result[1]), Len - 1);
end;

調用時需要傳入 CodePage 參數，如果是簡體中文環境，則 CodePage = 936(可以使用API函數GetACP獲取系統默認CodePage)