似乎随着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仍未修正。
评论