DELPHI - Mengisi combobox dengan data dari tabel Database MySQL

Selamat pagi pemirsa :D

kali ini saya akan bagikan tentang memasukkan data dari tabel [database] ke dalam sebuah combobox
ya cara termudah menggunakan komponen dbCombobox, tapi cara ini menurut saya kurang efektif,
mengapa? karena dengan menggunakan dbCombobox, koneksi data akan terus terbuka, sehingga jika data yang ada banyak, akan sangat lambat dalam operasi select. insert, update
oleh karena itu, saya menggunakan komponen standar yaitu combobox.
oke langsung saja gan ni codingnya :

Procedure SQL(IsiSQL : String);
begin
  with form1 do
  begin
  adoQuery1.SQL.Clear;
  adoQuery1.SQL.Add(IsiSQL);
  adoQuery1.Open;
  end;
end;

Procedure IsiCombobox(Result : String);
begin
  with form1 do
  begin
  Combobox1.Items.Clear;
  while not adoQuery1.eof do
  begin
    Combobox1.items.add(Q.FieldByName(Result).Value);
    adoQuery1.Next;
  end;
  end;
end;

nah Result disana adalah sebuah parameter 

jadi kita bisa pakai function diatas berulang kali

misalnya :

kita ingin menampilkan daftar NAMA MAHASISWA dari tabel mahasiswa

maka implemetasinya : (asumsikan bahwa NAMA MAHASISWA berada di field NAMA

isi dulu SQLnya

SQL('SELECT * FROM mahasiswa');

IsiCombobox('NAMA');

nah kalo kita pengen ganti ke field lain, tinggal ubah lagi

IsiCombobox('ALAMAT');

Mudah kan pemirsa?

oke sekian dlu, saya lanjutin project lain dlu

terimakasih telah berkunjung di blog saya ^_^