来自万一老师
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var D: TDate; T: TTime; begin D := EncodeDate(2008, 9, 11); T := EncodeTime(14, 56, 12, 1); ListBox1.Clear; ListBox1.Items.Add(FormatDateTime('yyyy/mm/dd', D)); ListBox1.Items.Add(FormatDateTime('hh:nn:ss:zzz', T)); end; procedure TForm1.Button2Click(Sender: TObject); var D: TDate; T: TTime; DT: TDateTime; begin D := StrToDate('2008-9-11'); T := StrToTime('14:56:06'); DT := StrToDateTime('2008-9-11 14:56:06'); ListBox1.Clear; ListBox1.Items.Add(DateToStr(D)); ListBox1.Items.Add(TimeToStr(T)); ListBox1.Items.Add(DateTimeToStr(DT)); end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 93 ClientWidth = 249 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 158 Top = 14 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object ListBox1: TListBox Left = 0 Top = 0 Width = 145 Height = 93 Align = alLeft ItemHeight = 13 TabOrder = 1 ExplicitHeight = 206 end object Button2: TButton Left = 158 Top = 53 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 2 OnClick = Button2Click end end