Artikel ini menjelaskan metode implementasi sistem pembacaan waktu dan tanggal di Delphi. Pertama, atur berbagai kontrol untuk menampilkan waktu, waktu membaca, dan pengaturan waktu. Kemudian tambahkan kode berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls;ketik TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; FormCreate(Pengirim: TObject); prosedur Button2Click(Pengirim: TObject); private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementasi{$R *.DFM}menggunakan ShellAPI;fungsi SetSystemDateTime(Tahun, Bulan, Hari, Jam, Menit, Detik: kata): integer ; ekspor; prosedur SetDate (Tahun, Bulan, Hari: Kata assembler; asm MOV CX, Tahun MOV DH, BYTE PTR Bulan MOV DL,BYTE PTR Hari MOV AH,2BH INT 21H akhir; prosedur SetTime (Jam, Menit, Detik, Detik100: Word); asm MOV CH,BYTE PTR Jam MOV CL,BYTE PTR Menit MOV DH,BYTE PTR MOV Kedua DL ,BYTE PTR Sec100 MOV AH,2DH INT 21H akhir;mulai SetDate(Tahun, Bulan, Hari); SetTime(Jam, Menit + 1, Detik, 0); hasil := 1;akhir;prosedur TForm1.Button1Click(Pengirim: TObject);var st : TSYSTEMTIME;begin //Dapatkan waktu sistem GetSystemTime(st ) ; //Menampilkan waktu sistem Memo1.Lines.Add('Waktu sistem = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));end;prosedur TForm1.FormCreate (Pengirim: TObject);mulai Memo1.Lines.Clear;akhir;prosedur TForm1.Button2Click(Pengirim: TObject);var st: TSYSTEMTIME;mulai DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st);