String转化为PWideChar函数

 最近在做项目时碰到了String转换为PWideChar的问题,delphi提供了两个封装函数来处理.

WideCharTOString 将 WideChar 转为 String 
StringToWideChar 将 string 转为 WideChar

1. function DoStrToWideChar(s: string): PWideChar;
2. var
3.   Buff: array[0..255] of WideChar;
4.   WChar: PWideChar;
5. begin
6.   WChar := StringToWideChar(s, Buff, Length(s) + 1);
7.   Result := WChar;
8. end;

更快捷的方案就是强制转换

 

 

1. function DoStrToWideChar(s: string): PWideChar;
2. begin
3.   Result := PWideChar(WideString(s));
4. end;