PWideChar --> String |
Previous Top Next |
Code: |
{ **** UBPFD *********** by kladovka.net.ru **** >> Конвертация PWideChar в String
Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol 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; |
©Drkb::00177