2013-06-22 21_46_31-MainForm

Print Friendly

Di Delphi telah disediakan variabel global untuk keperluan penamaan bulan, yaitu LongMonthNames[], berupa array 12 elemen. Misalnya untuk mengambil nama bulan ke-5, bisa pake ini:

NamaBulan := LongMonthNames[5] ;//menghasilkan 'May';

Hanya saja, hasil tersebut dalam bahasa Inggris. Untuk mengubah ke bahasa Indonesia dengan mengisi setiap elemen variabel tersebut dengan nama bulan yang sesuai. Kode pengisian variabel ini sebaiknya kita letakkan di event FormCreate() pada form utama, sehingga form-form lain dapat menggunakanannya tanpa masalah.

procedure TForm1.FormCreate(Sender: TObject);
begin
  LongMonthNames[1]  := 'Januari';
  LongMonthNames[2]  := 'Fabruari';
  LongMonthNames[3]  := 'Maret';
  LongMonthNames[4]  := 'April';
  LongMonthNames[5]  := 'Mei';
  LongMonthNames[6]  := 'Juni';
  LongMonthNames[7]  := 'Juli';
  LongMonthNames[8]  := 'Agustus';
  LongMonthNames[9]  := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'November';
  LongMonthNames[12] := 'Desember';
end;

Kemudian, penggunaannya sangat mudah:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Bulan ke lima:
  ShowMessage(LongMonthNames[5]);
  //Bulan berjalan saat ini
  ShowMessage(LongMonthNames[MonthOf(Date)]);
end;

Semoga bermanfaat.

Salam Delphi

Comments

comments

Powered by Facebook Comments