AStr: string
WStr: PWideChar;
begin
Size := Length(AStr) * 4;
WStr := AllocMem(Size);

// convert to Unicode
StringToWideChar(AStr, WStr, Size);
以上代碼輸入為string，輸出為PWideChar。
請問怎麼修改為：輸入為$4E25,輸出為PWideChar？

------
我思故我在

試看看
var
S : Widestring;ps:pwidechar;
begin
S := WideChar($4E25);
ps:= pwchar(s);
TextOutW(Canvas.Handle, 0, 150, ps,Length(s));
end;

請問size是怎樣計算的？
能夠達到和StringToWideChar同樣的效果嗎

------
我思故我在

您是指size的計算方式?stingtowidechar的size 的大小需要string字節數總長度加1, 英文字占一個字節中文字佔2個字節, 
size得長度可以大不可以小, 小了會變成亂碼,把 $4E25加到string上,輸出為PWideChar,因為$4E25應該是简體中文,
與目前英文及繁體中文的組合不好整合可能需要widestring或unicode較為妥當delphi2009應該有好的解決方式(我沒試過),
大陸的萬一博客有很詳細的解說您可以上網參考看看.