Membuat TIMER Pada DELPHI

Di sini saya akan mencoba untuk mencontohkan cara membuat program TIMER sederhana pada delphi 7.

Pada form masukkan komponen label sebanyak 4 buah dan 1 buah komponen timer, 

masing masing 2 buah komponen label akan menampilkan tanggal dan jam , namun di sini akan melihat perbedaan perintah koding untuk menghasilkan output yg berbeda

Ini Tampilan pada form , bisa di lihat komponen apa saja yang di gunakan,

ini listing programnya:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=FormatDateTime('dd MMMM yyyy',Now);

Label2.Caption:=FormatDateTime('hh:mm:ss',Now); 

Label3.Caption:=timetostr(time);

Label4.Caption:=datetostr(date);

end;

end.

Label1 dan label2 itu contoh outputnya 03 april 2012 , 22:04:50

Label3 dan label4 itu contoh outputnya 04/03/2012 , 10:05:42 PM

Dari penjelasan diatas anda bisa memilih sesuai dengan keinginan anda . 

koding di masukkan ke dalam komponen TIMER dengan cara klik 2x

Outputnya :