Delphi Base

摘要：记录学习过程中的点点滴滴，记性不好，特别写了小工具，欢迎大家下载测试 阅读全文

摘要：为了方便自己查询数据库信息，花了小时间写了小工具，添加SQL语法高亮显示功能 阅读全文

摘要：function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean; var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: P 阅读全文

摘要：procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // symbols... CodeC1: array[0..20] of String = ('#','$ 阅读全文

摘要：if cxDBTreeList1.FocusedNode.HasChildren = true then begin Application.MessageBox('当前目录下有下级节点，不能删除！', '提示', MB_OK + MB_ICONINFORMATION); exit; end; 阅读全文

摘要：需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete） 增加 with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字 阅读全文

摘要：procedure Tdm.DataModuleCreate(Sender: TObject); begin try FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr( 阅读全文

摘要：procedure TFrmain.scGPEdit1Change(Sender: TObject); var ASql, AKey: string; //模糊查询和字段查询 const vsql1: string = 'select * from delphi where Title like ' 阅读全文