注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

TERONY的博客

Still Achieving.

 
 
 

日志

 
 

Delphi2009的Bug之TreeView  

2009-05-17 19:41:42|  分类: Profession |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

似乎随着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 即可。

  评论这张
 
阅读(55)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017