摘要：How to get File Summary Info On Windows 2000 you can right-click in Explorer to get the file properties on any file and can associate summary information to any type of files, including even text file... 阅读全文

摘要：beginwith Table1 dobegin Active := False; DatabaseName := 'DOCTOR'; TableType := ttParadox; TableName := 'DOCTORINF23'; if not Table1.Exists then begin with FieldDefs do begin Clear; with AddFieldDef ... 阅读全文

摘要：一、打印dbgrid数据：//==============================================================================//打印DBGrid中的所有数据********************************************************//=================================... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject) ;var lf : TLogFont; tf : TFont;begin with Form1.Canvas do begin Font.Name := 'Arial'; Font.Size := 24; tf := TFont.Create; try tf.Assign(Font) ; GetObjec... 阅读全文

摘要：There are many times when you need to split a string into an array of strings by using a character as a separator. For example, a CSV ("comma" separated) file might have a line like "Zarko;Gajic;;Delp... 阅读全文

摘要：DFM File(main.dfm): object MainForm: TMainForm Left = 301 Top = 163 Width = 696 Height = 480 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'T... 阅读全文

摘要：unit uMainFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask;type TMainForm = class(TForm) btnPkgForm: TButton; medtOp1: TMaskEdit; me... 阅读全文

摘要：unit FunkFrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFunkForm = class(TForm) Button1: TButton; procedure Button1Cli... 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public de... 阅读全文

摘要：unit UfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmMain = class(TForm) btn1: TButton; btn2: TButton; btn3:... 阅读全文

摘要：No.1 Delphi中的Include文件 begin ShowMessage({$I File1.txt}; //有错吗？ ShowMessage(UpperCase({$I File1.txt}); end; //新建一个文本文件“File1.txt”、内容填写为:“'Hello Word')”看看 No.2 可爱的强制转换 var B: Byte begin Char(B) ... 阅读全文

摘要：根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码18位：由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。... 阅读全文

摘要：1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a0 do inc(lcm,a); end; 素数的求法 A.小范围内判断... 阅读全文

摘要：使用方法, uses 本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！');ShowMessage(Pub.PathExeDir); //////////////////////以下源码开始{$DEFINE Delphi6}//D5下不要此句unit PubFuncUnit;interfaceuses Windows, SysUtils, ShellAPI, Messages... 阅读全文