Delphi格式化函数：Format.

1、Format('%0.2d',1 = '01' 2 表示两位 / formatdatetime('aaa',now;/当前星期 formatdatetime('c',now;以 2003-8-16 23:03:23的形式显示当前日期和时间 formatdatetime('d', no w;/ 显示当前的日期 1 被显示成 1 formatdatetime('dd', now;/显示 当前的日期1被显示成01 formatdatetime('ddd',now;显示当前的星期 forma

2、tdatetime('ddddd',now;以 2003-8-1 的形式显示年月曰 formatdatetime('dddddd',now;以2003年8月1日的形式显示年月曰 formatdatetime('dddddd ddd',now;/以 200年 8月1日星期五'的形式显示年月日及 星期formatdatetime('e',now;/显示年的最后一位2003被显示成3 formatdatetime('ee',now;/显示年的最后二位2003被显示成03 formatdatetime('e

3、ee',now;/显示年 2003 被显示成 2003 formatdatetime('h',now;/显示小 时1被显示成1 formatdatetime('hh',now;/显示小时1被显示成01 formatdatetime('m', no w;/ 显示月 1 被显示成 1 formatdatetime('mm', no w;显示月 1 被 显示成01 formatdatetime('mmm',now;以八月'的形式显示月份 formatdatetime(' n', no w;

4、 显示当前分钟 1 被显示成 1 formatdatetime(' nn',now;显示当 前分钟1被显示成01 formatdatetime('s',now;显示当前秒1被显示成1 formatdatetime('ss',now;/显示当前秒 1 被显示成 01 formatdatetime('t',now;/以 1:05 的 形式显示小时和分钟formatdatetime('tt',now;/以1:06:13的形式显示小时和分钟和秒 formatdatetime('y',now;/显示年的最后二

5、位 2003被显示成 03 formatdatetime('yyy',now;/显示年 2003 被显示成 2003 formatdatetime('z',now;/显示 当前毫秒1被显示成1 formatdatetime('zz',now;显示当前毫秒1被显示成01 formatdatetime('zzz',now;显示当前毫秒1被显示成001除上面之外的字母或字符就 直接显示。以上在控制面板里的选项：时间格式 H:mm:ss日期格式yyyy-M-d区域 选项：中文(中国)在控制面板里 时间区域”选项里选择的时间或日期选项不同，

6、显示结果可能会有所不同。2003/9/6 (1按下Ctrl和其它键之后发生一事件。procedure TForm1.FormKeyDow n(Se nder: TObject; var Key: Word; Shift: TShiftState; beg in if (ssCtrl in Shift and (key =67 the n showmessage('keydow n Ctrl+C' end; (2.Dbgrid 中用 Enter键代替 Tab键.procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: C

7、har; begin if Key = #13 then if ActiveC on trol = DBGrid1 then beginTDBGrid(ActiveCo ntrol.Selectedl ndex := TDBGrid(ActiveCo ntrol.Selectedl ndex + 1; Key := #0; end; end; (3.Dbgrid 中选择多行发生一事件。procedureTForml.Button 1Click(Sender: TObject; var i:integer; bookmarklist:Tbookmarklist; bookmark:tbookma

8、rkstr; beg in bookmark:=adoquery1.Bookmark;bookmarklist:=dbgrid1.SelectedRows; try begi n for i:=0 to bookmarklist.Co un t-1 dobegi n adoquery1.Bookmark:=bookmarklisti; with adoquery1 do beg in edit;fieldbyn ame('mdg'.AsStri ng:=edit2.Text; post; end; end; end; fin ally adoquery1.Bookmark:=b

9、ookmark; end; end; (4.Form 的一个出现效果。procedureTForm1.Button 1Click(Se nder: TObject; var r:tha ndle; i:i nteger; beg in for i:=1 to trunc(width/1.414 do begin r:=CreateEllipticRgn(trunc(width/2-i,trunc(height/2- i,trunc(width/2+i,trunc(height/2+i; SetWindowRgn(handle,r,true;Application.ProcessMessages

10、; sleep(1; end; end;(用 Enter代替 Tab 在编辑框中移动 隹点。 procedure TForm1.FormKeyPress(Se nder: TObject; var Key: Char; beg in if key=#13 the n beg in if not (Activec on trol is Tmemo the n beg in key:=#0;keybd_eve nt(vk_tab,mapvirtualkey(vk_tab,0,0,0; end; end; end; (6.Progressba加 上色 彩。const $EXTERNALSYM PBS

11、_MARQUEE PBS_MARQUEE = 08; var Form1: TForm1; impleme ntati on $R *.dfm uses CommCtrl; procedureTForm1.Butto n1Click(Se nder: TObject; beg in / Set the Backgrou nd color to tealProgressbar1.Brush.Color := clTeal; / Set bar color to yellowSen dMessage(ProgressBar1.Ha ndle, PBM_SETBARCOLOR, 0, clYello

12、w; end; (7住 点 移动时编辑框色彩不同。procedure TForm1.Edit1E nter(Se nder: TObject; begin(sen der as tedit.Color:=clred; end; procedure TForm1.Edit1Exit(Se nder: TObject; beg in (sender as tedit.Color:=clwhite; end; (8备份和恢复 procedureTForm1.Butt on 1Click(Se nder: TObject; begin if Ope nDialog1.Execute then begi

13、 n try adoc onn ecti on 1.C onn ected:=False;adoc onn ectio n1.C onn ectio nStri ng:='Provider=SQLOLEDB.1;Persist SecurityIn fo=False;User ID=sa;I nitial Catalog=master;Data Source=FRIEND-YOFZKSCO;'+ 'Use Procedure for Prepare=1;Auto Tran slate=True;Packet Size=4096;Workstati onID=FRIEND

14、-YOFZKSCO;Use En cryption for Data=False;Tag with colu mn collatio n whe n possible=False' adoc onnection 1.C onn ected:=True; with adoQuery1 do beg in Close; SQL.Clear; SQL.Add('Backup DataBase sfa to disk =”'+opendialog1.FileName+”； ExecSQL; end; except ShowMessage(? Ye§ u; Exit;

15、end; end;Application.MessageBox('1 ?2?S£ ? ey?Y±? Y3e1|',' ae?l,MB_OK +MBCONINFORMATION; end; procedure TForm1.Butto n2Click(Se nder: TObject; beg in if Open Dialog1.Execute the n beg in try adoc onn ectio n1.C onn ected:=false; adoc onn ection 1.Co nn ectio nStri ng:='Prov

16、ider=SQLOLEDB.1;Persist Security In fo=False;User ID=sa; In itial Catalog=master;Data Source=FRIEND-YOFZKSCO;'+ 'Use Procedure for Prepare=1;Auto Tran slate=True;Packet Size=4096;Workstation ID=FRIEND- YOFZKSCO;Use En cryptio n for Data=False;Tag with colu mn collati on whe n possible=False&

17、#39; adoc onnection 1.C onn ected:=true; with adoQuery1 do beg in Close; SQL.Clear; SQL.Add('Restore DataBase sfa from disk ='''+ope ndialog1.FileName+”； ExecSQL; end; except ShowMessage('?Exit; fend;uen'd ;Application.MessageBox('1 ?2?S£?e y?Y?' 3e 1|','

18、 iae ?',MB_OK + MBCONINFORMATION; end; (9.查找局域网上的 sqlserver报务器。uses Comobj; procedure TForm1.Butt on 1Click(Se nder: TObject; var SQLServer:Varia nt; ServerList:Varia nt; i,n Servers:i nteger; sRetValue:Stri ng; begi n SQLServer := CreateOleObject('SQLDMO.Application' ServerList:= SQLSer

19、ver.ListAvailableSQLServers; n Servers:=ServerList.Co unt; for i := 1 to n servers do ListBox1.Items.Add(ServerList.Item(i; SQLServer:=NULL; serverList:=NULL; en d; (10.窗体打开时的淡入效果。procedure TForm1.FormCreate(Se nder: TObject; begin Ani mateWi ndow (Ha ndle, 400, AW_CENTER; end; (11.动态创建窗体。procedureT

20、Form1.Butt on 1Click(Se nder: TObject; beg in try form2:=Tform2.Create(self; form2.ShowModal; fin ally form2.Free; end; end; procedure TForm1.FormClose(Se nder: TObject; var Actio n: TCloseAct ion; beg in acti on:=cafree; end; procedure TForm1.FormDestroy(Se nder: TObject; begi n form1:=nil; end; (1

21、2 复制文件。procedure TForml.Button 1Click(Sender: TObject; begin try copyfileA(pchar('C:AAA.txt',pchar('D:AAA.txt',false; except showmessage('sfdsdf; end; end; (13复制文件夹。uses shellAPI; procedure TForm1.Butt on 1Click(Se nder: TObject; var lpFileOp: TSHFileOpStruct; begi n with lpFileO

22、p do begi n Wnd:=Self.Ha ndle; wfunc:=FO_COPY; pFrom:=pchar('C:AAA' pTo:=pchar('D:AAA' fFlags:=FOF_ALLOWUNDO; hName Map pi ngs:=nil; lpszProgressTitle:=nil; fAny Operati on sAborted:=True; end; if SHFileOperati on (lpFileOp<>0 the n ShowMessage删除失败'；end; (14改变 Dbgrid 的选定色。p

23、rocedure TForm1.DBGrid1DrawDataCell(Se nder: TObject; con st Rect: TRect; Field: TField; State: TGridDrawState; beg in if gdSelected in state the nSetBkColor(dbgrid1.ca nv as.ha ndle,clgree n else setbkcolor(dbgrid1.ca nvas.ha ndle,clwhite; dbgrid1.Ca nvas.TextRect(rect,0,0,field.AsStri ng;dbgrid1.C

24、a nvas.Textout(rect.Left,rect.Top,field.AsStri ng; end; (15 检测系统是否已安装了 ADO。uses registry; function Tform1.ADOInstalled:Boolean; var r:TRegistry;s:stri ng; begi n r := TRegistry.create; try with r do beg in RootKey :=HKEY_CLASSES_ROOT; Ope nKey('ADODB.Co nn ectio nCurVer', false ; s :=ReadStr

25、i ng(”; if s <> ” the n Result := True else Result := False; CloseKey; end; fin allyr.free; end; end; procedure TForm1.Button 1Click(Se nder: TObject; beg in ifADOI nstalled then showmessage('this computer has in stalled ADO' end; (1 取利主机的 ip 地址。 uses win sock; procedure TForm1.Button

26、1Click(Se nder: TObject; varIP:string; IPstr:String; buffer:array1.32 of char; i:integer; WSData:TWSAdata;Host:PHostE nt; begin if WSAstartup(2,WSData<>0 then begin showmessage('WS2_32.DLL3? e ? _e§°u .' exit; end; try ifGetHostname(buffer1,32<>0 then begin showmessage(

27、'?o Dy ?卩？* ? u ?.' exit; end;except showmessage('? o D3e 1| 卩？* ? u ?' exit; end;Host:=GetHostbyname(buffer1; if Host=nil then begin showmessage('IP卩? ?a?.'exit; end else begin edit2.Text:=Host.h_name; edit3.Text:=chr(host.h_addrtype+64; fori:=1 to 4 do beg in IP:=in ttostr(

28、ord(host.h_addrAi-1; if i<4 the n ipstr:=ipstr+IP+'.' else edit1.Text:=ipstr+ip; end; end; WSACIea nup; end; (17取得计算机名。fun ctio n tform1.get_ name:stri ng; var ComputerName: PChar; size: DWord; beg in GetMem(ComputerName,255; size:=255; if GetComputerName(ComputerName,size=False the n res

29、ult:='' else result:=ComputerName; FreeMem(ComputerName; end; procedureTForm1.Butt on 1Click(Se nder: TObject; begin label1.Captio n:=get_name; end; (1馭得 硬盘序列号。fun ctio n tform1.GetHDSerialNumber: Lo ngI nt; $IFDEF WIN32 var pdw : pDWord; mc, fl : dword; $ENDIF beg in $IfDef WIN32 New(pdw;Ge

30、tVolumeI nformatio n('c:', nil,O,pdw,mc,fl, ni 1,0; Result := pdwA; dispose(pdw; $ELSE Result := GetWi nFlags; $ENDIF end; procedure TForml.Butt on 1Click(Se nder: TObject; begin edit1.Text:=i nttostr(gethdseria In umber; end; (19限定光标移动范围。 procedure TForml.Butt on 1Click(Se nder: TObject; va

31、r rect1:trect; begi n rect1:=button2.BoundsRect; mapwindowpoints(handle,0,rect1,2; clipcursor(rect1; end; procedure TForml.Button 2Click(Se nder: TObject; var scree nrect:trect; beg in scree nrect:=rect(0,0,scree n. Width,scree n. Height; clipcursor(scree nrect; end; (2S制 edit 框只能输入数字。procedure TFor

32、m1.Edit1KeyPress(Se nder: TObject; var Key: Char; begin if not (key in '0'.'9','.',#8 then begin key:=#0; Messagebeep(0; end; end; (21.dbgrid中根据任一条件某一格变色。procedureTForm_mai n.DBGridEhlDrawColu mn Cell(Se nder: TObject; const Rect: TRect; DataCol: In teger; Colum n: TColu mn E

33、h; State: TGridDrawState; beg in if (trim(DataModule1.ADOQuery1.FieldByName('dczt'.AsStri ng='OK' then begin if datacol=6 the n beg in DbGridehl.Ca nvas.Brush.Color:=clGradie ntActiveCaptio n; DbGridehl.DefaultDrawColu mn Cell(Rect,datacol,colum n, state; end; end; end; (22打开 word 文件

34、。procedure TfjfsglForm.SpeedButto n4Click(Se nder: TObject; var MSWord: Varia nt; str:stri ng; begi n if trim(DataModule1.adoquery27.fieldbyname('fjmc'.asstring<>'' then begin str:=trim(DataModule1.ADOQuery27.fieldb yn ame('fjmc'.AsStri ng; MSWord:=CreateOLEObject('

35、Word.Applicatio n' MSWord.Docume nts.Ope n('d:Program FilesCommon FilesSfa'+str, True;/ MSWord.Visible:=1; str:=''MSWord.ActiveDocume nt.Ra nge(0, 0;/MSWord.ActiveDocument.Range.lnsertAfter(str;？ Word?D?j?6X? ?'Title'MSWord.ActiveDocume nt.Ra nge.l nsertParagraphAfter; en

36、d else showmessage('' end; (23.word 文件传入和传出数据库。uses IdGlobal; procedureTdjhyForm.SpeedButton2Click(Sender: TObject; var sfilename:string; functionBlobC on te ntTostri ng(co nst File name:stri ng:stri ng; beg in withTfilestream.Create(filename,fmopenread do try setlength(result,size;read(po in ter(resultA,size; fin ally free; end; end;