PWideChar → String

Материал из DRKB

PWideChar --> String[править | править код]

{ **** UBPFD *********** by kladovka.net.ru ****
>> Конвертация PWideChar в String

Copyright:   Andre .v.d. Merwe
Дата:        18 июля 2002 г.
********************************************** }

function PWideToString(pw : PWideChar): string;
var
  p: PChar;
  iLen: integer;
begin
   iLen := lstrlenw(pw) + 1;
   GetMem(p, iLen);

   WideCharToMultiByte(CP_ACP, 0, pw, iLen, p, iLen * 2, nil, nil);

   Result := p;
   FreeMem(p, iLen);
end;


Source: http://kladovka.net.ru
Author: Andre .v.d. Merwe
ID: 00177