Как конвертировать WideString в String?

{:Converts Unicode string to Ansi string using specified code page.
 @param ws Unicode string.
 @param codePage Code page to be used in conversion.
 @returns Converted ansi string.
}

function WideStringToString(const ws: WideString; codePage: Word): AnsiString;
var
 l: integer;
begin
 if ws = ' then
  Result := '

 else
 begin
  l := WideCharToMultiByte(codePage,
  WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
  @ws[1], - 1, nil, 0, nil, nil);
  SetLength(Result, l - 1);
  if l > 1 then
  WideCharToMultiByte(codePage,
  WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
  @ws[1], - 1, @Result[1], l - 1, nil, nil);
 end;
end; { WideStringToString }

{:Converts Ansi string to Unicode string using specified code page.
 @param s Ansi string.
 @param codePage Code page to be used in conversion.
 @returns Converted wide string.
}

function StringToWideString(const s: AnsiString; codePage: Word): WideString;
var
 l: integer;
begin
 if s = ' then
  Result := '

 else
 begin
  l := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, nil, 0);
  SetLength(Result, l - 1);
  if l > 1 then
  MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]),
  - 1, PWideChar(@Result[1]), l - 1);
 end;
end; { StringToWideString }

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

How about: s: string; w: widestring; s:=String(w); and w:=Widestring(s);

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...