Tipe Data Array

kali ini saya akan membagi tutorial tipe data array .

komponen yang saya pakai disini adalah TLabel dan TDateTimePicker (dapat ditebukan pada tab Win 32)

berikut adalah contoh yang saya buat ,
tapi kamu bisa kembangkan ini sesuai kreativitas'mu :)

tuliskan syntax berikut pada komponen  TDateTimePicker  dalam event OnChange

procedure TForm1.DateTimePicker1Change(Sender: TObject);

 const

   bulan :array[1..12] of string

=('Januari','Februari','Maret','April','Mei','Juni','Juli','Agustus','September','Oktober','November','Desember');

var

  hr,bln,thn:word;

begin

  DecodeDate(DateTimePicker1.Date,thn,bln,hr);

  Label1.Caption:=IntToStr(hr)+' '+bulan[bln]+' '+IntToStr(thn);

end;

end.

Lalu compile program tersebut dengan ctrl+F9 , lalu inilah hasil running programnya ...

mudah bukan ???
selamat mencoba & GOOD LUCK :)