随笔分类 -  Delphi

摘要：unit　Unit1;interfaceuses　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　Dialogs,　StdCtrls;type　TForm1　=　class(TForm) procedure　FormCreate(Sender:　TObject);　end;var　Form1:　TForm1;implementation{$R　*.dfm}uses　DateUtils;procedure　TForm1.FormCreate(Sender:　TObject);var　t1,t2. 阅读全文