似乎随着Delphi2010即将到来，Delphi2009愈现疲态。其Win32面板上的TreeView组件的SaveToFile方法不支持中文着实让我头疼了些时候。现将解决方法献上，若您有更好的方法，请在留言中共享一下给我，谢谢！
这个错误的根本原因是目标文件头部少写入了两个字节。源码如下：
var
myBuff: array [0..1] of Byte;
FS: TFileStream;
begin
myBuff[0] := $FF;
myBuff[1] := $FE;
FS := TFileStream.Create('e:\test.txt', fmCreate);
FS.WriteBuffer(myBuff, 2);
TreeView1.SaveToStream(FS);
FS.Free;
end;
很简单，注释就免了。
另外我不喜欢Delphi启动后默认存在的StartPage，如果您也不喜欢，可以这样做，在启动快捷方式后面加上参数
-np 即可，如果不喜欢看到启动界面，那么将参数改为 -ns 即可。
备注：很遗憾，在我安装了最新的RAD Studio2009（2009.06 Update4）该Bug仍未修正。
评论