2013年10月23日
TreeView设置节点图标
摘要： TreeView设置节点图标没子节点的设置其图标为 0有节点的设置其图标为 1procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin with TreeView1 do begin for i:= 0 to Items.Count -1 do begin if Item... 阅读全文
posted @ 2013-10-23 17:19 XE2011 阅读(1508) 评论(0) 推荐(0)
DELPHI 重命名文件名时 文件存在自动重命名
摘要： procedure TForm1.Button1Click(Sender: TObject);var Dir, FileTitle, FileExt: string; s,s1: string; j:Integer;begin Dir := 'C:\'; FileTitle := '新建 文本文档'; FileExt := '.txt'; s1:=Dir+FileTitle+FileExt; j:=2; if FileExists(s1) then //C:\新建 文本文档.txt begin s:=Format('%s%s(%d)%s& 阅读全文
posted @ 2013-10-23 15:21 XE2011 阅读(1233) 评论(0) 推荐(0)