widestring---->file(50分)

如何把一个widestring的内容保存成一个文件？<br>要求是速度要快。请高手帮忙

保存之后还是unicode：<br>var<br>&nbsp; fh:integer;<br>&nbsp; ws:WideString;<br>fh:=_lcreat('文件名',0);<br>_lwrite(fh,Pchar(PWideChar(ws)),Length(ws)*2);<br>_lclose(fh);<br>----------------------------------------------------------------------<br>保存之后变ansi：<br>var<br>&nbsp; fh:integer;<br>&nbsp; ws:WideString;<br>&nbsp; s:string;<br>fh:=_lcreat('文件名',0);<br>s:=ws;<br>_lwrite(fh,Pchar(s),Length(s));<br>_lclose(fh);<br><br>

问题我已经自己解决了。谢谢。

接受答案了.