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