Tutorial Procedure pada Delphi

Procedure atau sub program adalah sebuah program terpisah dan berdiri dalam suatu blok program. Penulisan peocedure diawali dengan kata procedure dan pada bagian deklarasi program cukup menuliskan nama procedure yang dibuat pada bagian implementasi.


Contoh Program
*Langkah pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
*Setelah itu buat project baru dengan meng-klik File|New|VCL form application - Delphi
*Lalu desain programnya seperti berikut

Untuk lebih lengkapnya tentang komponen yang digunakan silahkan simak tabel berikut

Komponen	Properties	Nilai
Form1	Caption	Aplikasi kalkulator menggunakan procedure
Label1	Caption	Bil Pertama
Label2	Caption	Bil Kedua
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Edit3	Text	Kosongkan
Button1	Caption	Tambah
Button2	Caption	Kurang
Button3	Caption	Kali
Button4	Caption	Bagi

*Setelah desain selesai sekarang kita saatnya membuat syntaxnya
*Pertama masuk ke mode code lalu deklarasikan nama procedure dibawah publik declarations untuk lebih jelas lihat gambar dibawah ini

*Setelah itu buat syntax procedure yang akan digunakan dan tempatkan dibawah implementation
Ketikan syntax Procedure tambah, kurang, kali, dan bagi dan tempatkan dibawah implementation

procedure TForm1.tambah; //PROCEDURE TAMBAH
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a+b;
  Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.kurang; //PROCEDURE KURANG
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a-b;
  Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.kali; //PROCEDURE KALI
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a*b;
  Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.Bagi; //PROCEDURE BAGI
var a,b,hasil:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  hasil:=a/b;
  Edit3.Text:=FloatToStr(hasil);
end;

*Lalu dobel klik di button1 'Tambah' dan ketikan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Tambah; //MEMEANGGIL PROCEDURE TAMBAH
end;

*Lalu dobel klik di button2 'kurang' dan ketikan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Kurang;//MEMANGGIL PROCEDURE KURANG
end;

*Lalu dobel klik di button3 'Kali' dan ketikan syntax berikut

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Kali;//MEMANGGIL PROCEDURE KALI
end;

*Lalu dobel klik di button4 'Bagi' dan ketikan syntax berikut

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Bagi;//MEMANGGIL PROCEDURE BAGI
end;

*Terakhir coba jalankan programnya dengan menekan tombol Shift+CTRL+F9 ... enjoy...