CARA PENGGUNAAN PROCEDURE DAN FUNCTION DI DELPHI

Salam blogger……pada postingan kali ini saya akan share cara penggunaan procedure dan function di Delphi. Sebelumnya terlebih dahulu kita akan mengenal apa itu prosedur dan fungsi terlebih dahulu. Dalam teorinya, prosedur adalah suatu operasi dimana anda meminta komputer untuk melaksanakan sesuatu, dan fungsi adalah perhitungan yang mengembalikan suatu nilai. Perbedaan ini ditekankan dengan fakta bahwa suatu fungsi mempunyai hasil, nilai balik (return value), sementara prosedur tidak. Kedua tipe rutin dapat mempunyai parameter majemuk dengan tipe data yang ditentukan.

Jika sudah mengenal apa itu prosedur dan fungsi, selanjutnya saya akan menjelaskan cara pendeklarasian procedure dan function tersebut. Ketika anda mendeklarasikan prosedur atau fungsi, maka anda menetapkan nama, jumlah dan tipe parameter yang digunakannya, dan didalam suatu fungsi, anda menetapkan tipe nilai baliknya. Bagian deklarasi ini disebut prototype, heading, atau header. Kemudian anda menulis blok kode yang dieksekusi kapan saja prosedur atau fungsi dipanggil. Bagian ini disebut body atau blok rutin.

Deklarasi Prosedur

Deklarasi prosedur mempunyai bentuk:

Procedure nama prosedur(parameterList); directives;

localDeclarations;

begin

statements

end;

Dimana Nama Prosedur adalah identifier yang valid, statements adalah deret pernyataan yang dieksekusi ketika prosedur dipanggil, dan parameterList, directives, dan local Declarations bersifat opsional.

Deklarasi Fungsi

Deklarasi fungsi adalah seperti deklarasi procedure dimana ia menetapkan tipe balik dan nilai balik.

Deklarasi fungsi mempunyai bentuk:

Function NamaFungsi (parameterlist):return Type;directives;

localDeclarations;

Begin

statements

End; 

Dimana NamaFungsi adalah identifier yang valid, returnType adalah tipe data apapun, statements adalah deret pernyataan yang dieksekusi ketika fungsi yang dipanggil, dan parameterList, directives dan localDeclarations bersifat opsional.

Blok pernyataan fungsi diatur dengan aturan yang sama berlaku pada prosedur.Dalam blok pernyataan, Anda dapat menggunakan variabel dan identifier lain yang dideklarasikan di dalam bagian localDeclarations fungsi, nama parameter dari daftar parameter, dan identifier manapun dalam scope deklarasi fungsi. Sebagai tambahan, nama fungsi sendiri bertindak sebagai variabel khusus yang menyimpan nilai balik fungsi, seperti halnya variabel terdefinisi (predefined variable) result.

LANGKAH PERCOBAAN

Siapkan form projectnya di delphi, Buat procedure ResetForm untuk menghapus isian form. Ketikkan ‘procedure ResetForm;  pada blok private/public. Tekan Ctrl + Shift + C.Ketikkan statement di bawah ini :

procedure TForm1.ResetForm;

begin

Edit1.Text := '';

Edit2.Text := '';

End;

Selanjutnya  Buat function information dan function Confirmation untuk menampilkan kotak dialog. Ketikkan ‘Function Information(P:String):Integer; dan Function Confirmation(P:String):Integer; ’ pada blok private/public. Tekan Ctrl + Shift +C. Ketikkan statement di bawah ini :

Function TForm1.Information(P:String):Integer;

Begin

Result := MessageDlg(P,mtInformation,[mbOK],0);

End;

Function TForm1.Confirmation(P:String):Integer;

Begin

Result := MessageDlg(P,mtConfirmation,[mbYes,mbNo],0);

End;

Jika sudah selanjutnya tambahkan 2 buah button untuk menjalakan perintah procedure dan fungsi diatas, pada event onclick tambahkan coding dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

Confirmation(‘Data mau di reset ???’);

ResetForm

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Confirmation(‘Anda Yakin mau Keluar Aplikasi’);

Application.Terminate;

end;

Jika sudah sekarang coba jalankan programnya dengan menekan F9/RUN dan liat hasilnya. Demikian artikel tentang cara pnggunaan procedure dan function yang dapat saya share kali ini, semoga dapat bermanfaat.