[Delphi] Belajar Membuat Fungsi dan Prosedur

Ini adalah suatu anggapan dari saya bahwa suatu aplikasi dikatakan baik dari sisi programmingnya apabila dapat meminimalisir hard-coding (kode yg gak tau arahnya dan berulang2 dibuat). sebagai contoh ketika kita membuat suatu aplikasi database, bosan kali ya apabila menuliskan koding seperti berikut ini secara berulang2 :

with ZQuery1 do //Query komponen Zeos
 begin
  Close;
  SQL.Text := 'INSERT INTO blablabblablaa';
  Execute / Open;
 end;

nah hal ini bisa kita buat suatu fungsi dimana dapat dipanggil hanya dengan 1 baris koding aja(menghemat waktu)


function SQLExec(aQuery: TZQuery ; _SQL: string ; isSearch: boolean): boolean;
 begin
 try
  result := True;
  with aQuery do
   begin
    Close;
    SQL.Text := _SQL;
    if isSearch then
     Open
    else
     Execute;
   end;
 except
  result := False;
 end;
end;

nah fungsi tersebut setiap kali kita akan memanggil Query SQL kita tinggal mengetikkan perintah :


SQLExec(ZQuery1,'SELECT * FROM nmtable',True);


simple khan???
Fungsi dan prosedur merupakan sebuah method, perbedaan fungsi dan prosedur terletak pada nilai kembalian / result. prosedur tidak mengembalikan suatu nilai secara langsung tetapi apabila fungsi dapat mengembalikan fungsi secara langsung, sedangkan keduanya memiliki kesamaan yaitu dapat memiliki parameter maupun tidak (sesuai dengan kebutuhan).adapun struktur dari keduanya adalah sebagai berikut :


{ [TIDAK BER-PARAMETER] }

procedure NamaProsedur;
begin
//KODENYA...
end;

function NamaFungsi;
begin
//KODENYA...
result := NamaFungsi;
end;

{ [BERPARAMETER] }
procedure NamaProsedur(Variabel: TipeData);
begin
//Kodenya
end;

function NamaFungsi(Variabel: TipeData):TipeData
begin
result := TipeData; //tipe data result dengan deklarasi fungsi harus sama
end;

Untuk delphi 2009, nilai kembalian tidak hanya dituliskan dengan result tapi dapat mengulang nama fungsinya, contoh :


function Hitung(ix,iy: integer): integer;
begin
Hitung := ix * iy;
end;

demikian tutorial tentang pembuatan fungsi dan prosedur ini, semoga bermanfaat bagi yang ingin belajar pemrograman khususnya delphi.