Delphi(程序人生)

摘要： 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... 阅读全文

摘要： procedure TfjfsglForm.SpeedButton4Click(Sender: TObject); var MSWord: Variant; str:string; begin if trim(DataModule1.adoquery27.fieldbyname('fjmc').asstring)'' then ... 阅读全文

摘要： procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (trim(DataModule1.ADOQuery1... 阅读全文

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; Messagebeep(0); end; end; 阅读全文

摘要： function tform1.GetHDSerialNumber: LongInt; {$IFDEF WIN32} var pdw : pDWord; mc, fl : dword; {$ENDIF} begin {$IfDef WIN32} New(pdw); G... 阅读全文

摘要： uses registry; function Tform1.ADOInstalled:Boolean; var r:TRegistry; s:string; begin r := TRegistry.create; try with r do begin RootKey :... 阅读全文

摘要： procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if gdSelected in state then SetBkColor(dbgrid1.canvas.han... 阅读全文

摘要： uses shellAPI; procedure TForm1.Button1Click(Sender: TObject); var lpFileOp: TSHFileOpStruct; begin with lpFileOp do begin Wnd:=Self.Handle; wfun... 阅读全文

摘要： Progressbar加上色彩。 const {$EXTERNALSYM PBS_MARQUEE} PBS_MARQUEE = 08; var Form1: TForm1; implementation {$R *.dfm} uses CommCtrl; procedure TForm1.B... 阅读全文

摘要： 1,用AnimateWindow函数->有一个缺点,窗体位置必须墨认 2,用如下代码 ---------------- procedure TForm1.Button1Click(Sender: TObject); var r:thandle; i:integer; begin for i:=1 to trunc(width/1.414) do... 阅读全文

摘要： Delphi与正则表达式 ------------------------------------------------------------------------------------------- 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info... 阅读全文

摘要： 如何安装第三方控件的帮助 1,考贝cnt 与HLP文件到Delphi->Help目录下 CNT=Contents=内容 ------------------------------------------ 2,Delphi开发工具->Help->Customize ------------------------------------- 3,Contents页->(+)Add Fil... 阅读全文