delphi学习
快乐江米
这个作者很懒,什么都没留下…
展开
-
用D制作计时器,原理,三位数减三位数。
1、变量声明:var h1,m1,s1,h2,m2,s2,h3,m3,s3:integer; time1,time2:string; ptime1,ptime2:pchar; timelist1,timelist2:tStringList;2、在计时开始按钮单击事件中,获得当前时间,并分割出时、分、秒。 time1:=timetostr(time);原创 2008-08-25 10:04:00 · 630 阅读 · 0 评论 -
搜集的函数:获得treeview节点路径
<br />Function Tmainfrm.NodePath(Value:TTreeNode):String;<br />begin<br /> if Value.Level=0 then<br /> Result:=Value.Text + '/ '<br /> else<br /> Result:=NodePath(Value.Parent)+Value.Text + '/ ';<br />end;原创 2011-03-20 13:58:00 · 470 阅读 · 0 评论 -
搜集的函数:listview中根据扩展名获得图标
<br />function Tmainfrm.GetFileIconByExE(const ExEName:string;SmallIcon:boolean):HICON;<br />var<br /> sinfo: SHFILEINFO;<br /> sFlag: INTEGER;<br />begin<br /> // if copy(ExEname,1,1)<>'.' then ExEName:='.'+exEName;<br /> //必须有".",比如 .doc, .xls,原创 2011-03-20 14:02:00 · 376 阅读 · 0 评论 -
自编控件:带数据感知的listview控件!
unit ListView1;interfaceuses Windows,Messages,Dialogs,SysUtils, Classes, Controls, ComCtrls,DB,DBCtrls;type TdbListView = class(TListView) private FDataLinkDIR,FDatalinkFILE:TFieldDataLink; // function Getdatasource: TDataSource; // procedure Set原创 2011-03-20 14:07:00 · 534 阅读 · 0 评论