[代码]Delphi实现AnsiString与WideString的转换函数

在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。

Technorati 标签: Delphi AnsiString WideString CodePage MultiByteToWideChar WideCharToMultiByte