Delphi(程序人生)

摘要： 在做日期时间的计算时候常用的函数 Use DateUtils var a: TDateTime; ①HourOf(a)->得到小时的值 ②DayOf(a)->得到天的值,一年中的第几天 ③MonthOf(a)->得到月的值,一年中的第几月 ④MinuteOf(a)->得到小时内的分钟值 ⑤SecondOf(a)->得到分钟内的秒值 ⑥格式化日期的方式 ShortDateFormat ... 阅读全文

摘要： Rave Report中数据库不可以使用中文字段,否则连不上数据库,也许基于这一点,很多人不喜欢它 阅读全文

摘要： ACCESS库中,不要去使用User这样的表,否则出现连不通,读不到数,出大麻烦, 阅读全文

摘要： ShowModal 窗体不要去使用StayOnTop否则所有消息都会出问题,出大麻烦 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var a: TRect; begin a.Left := Form1.Left; a.Top := Form1.Top; a.Right := Form1.Left + Form1.Width; a.Bottom := Form1.Top + Form1.Height; Cl... 阅读全文

摘要： 根据数据表的内容生成TreeView树状结构，通常的做法就是从顶级开始，然后逐项递归查询遍历生成。这种方法在实现上容易做到，也很容易想到，但是效率比较低，因为数据库的检索(SQL语句需要解释执行，而且是对数据库文件进行操作)还是比较耗时的，尤其是树的层次较多，节点较多的情况。这里我要介绍的方法是以空间换取时间，只进行一次数据库检索，提取出全部数据，然后一次生成TreeView树状结构。通过SQL语... 阅读全文

摘要： program Project2; $APPTYPE CONSOLE} uses SysUtils, StrUtils, Windows; //注重，要加入这个文件 type //CPUID 一共有4组，4组连接成串是世界唯一的，常用于软件注册 TCPUID = array[1..4] of Longint; function GetCPUID: TCPUID; assemble... 阅读全文

摘要： uses Tlhelp32; function KillTask(ExeFileName: string): Integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Res... 阅读全文

摘要： Application.HelpFile := '..\..\Help\eBars.hlp'; 阅读全文

摘要： uses IdGlobal; procedure TdjhyForm.SpeedButton2Click(Sender: TObject); var sfilename:string; function BlobContentTostring(const Filename:string):string; begin with Tfi... 阅读全文