COMBO BOX DELPHI

 MENAMBAH TAHUN OTOMATIS PADA LIST COMBO BOX DELPHI 7.0

Pernah suatu ketika saya kebingungan pada saat sedang membuat program yang menggunakan tahun, seperti contoh Tahun Ajaran pada Sistem Informasi Akademik yang akan secara otomatis bertambah ketika tahun bertambah. 

Berikut ini akan saya bagikan cara menambah tahun otomatis kedalam list ComboBox.

Langkah pertama tambahkan procedure dibagian Public Declaration

procedure TambahTahun;

Tambahkan satu buah ComboBox kedalam form. Lalu kemudian dibagian Implementation ketikkan code berikut ini :

procedure TForm1.TambahTahun;
var
  thn, bln, hari: Word;
  i: Integer;
begin
  DecodeDate(Date(),thn,bln,hari);
  ComboBox1.Items.Clear;
  for i := thn downto 2000 do
  begin
    ComboBox1.Items.Add(IntToStr(i));
  end;
end;

Untuk penggunaannya pada event OnCreate ketikkan code ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
  TambahTahun;
end;

SELAMATMENCOBA.......