Procedure&Function

Function dan Procedure adalah sebagian code dari program yang umum dipakai di sebuah code program dan dapat diikuti dengan parameter2.Method bagian dari procedure dan Function yang merupakan anggota dari sebuah Class.code ini akan di execute jika dibutuhkan,untuk sebuah contoh anda mempunyai sebuah function yang mempunyai 2 buah nilai sbuah fungsi yang menyelsaikan perhitungan metemathic 2 nilai tsb dan mengembalikan hasil(result).biar lebih jelas saya aksih contoh aja dech:
Siapkan satu buah Form,Button,dan Edit.aturlah sedemikian rupa.
Function multyplay(num1,num2:integer):integer;
Begin
Result:=num1*num2;
End;
lalu double klik pada component button,tuliskan code brikut;

Procedure Tform1.Button1(Sender:Tobject);
Var
X:integer;
Begin
X:=Multyplay(4,5);
Edit1.text:=IntToStr(x)
end;
Jalankan program dengan menekan F9 lalu klik button nya.
Contoh untuk Procedure.buatlah sebuah procedure
Procedure hallo;
Begin
MessageDlg(‘Hallo,apa kabar!!’,mtInformation,[mbOk],0);
End;
Lalu tambahkan pada procedure Button1 tadi

Procedure Tform1.Button1(Sender:Tobject);
Var
X:integer;
Begin
X:=Multyplay(4*5);
Edit1.text:=IntToStr(x)
Hallo;
end;
Tekan F9!!!!
Berikut Listing lengkapnya:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Function multyplay(num1,num2:integer):integer;
begin
result:=num1*num2;
end;

Procedure hallo;
begin
MessageDlg('Hallo,apa kabar',mtInformation,[mbOk],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
x:=multyplay(5,4);
Edit1.Text:=IntToStr(x);
hallo;
end;

end.
Bagaimana kalo procedure/Function yang kita buat berhubungan dengan Component pada Form???jk Procedure/Function yg kita buat berhubungan dengan component pada Form cukup ditambahkan TForm1.Test dan di bagian Private declaration/Public declaration tambahkan nama Procedure/Function nya Contoh:
Buat Form seperti ini:

Untuk lebih jelasnya berikut Listing lengkapnya:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
Procedure Hallo_Ind;
Procedure Hallo_Eng;
Procedure Hallo_Spa;
Procedure Hallo_Ger;
Procedure Hallo_Ita;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.hallo_Ind;
begin
Label1.Caption:='Hallo ,Programmer!!!';
end;

Procedure TForm1.hallo_Eng;
begin
Label1.Caption:='Hello ,Programmer!!!';
end;

Procedure TForm1.hallo_Spa;
begin
Label1.Caption:='Holla ,Programador!!';
end;

Procedure TForm1.hallo_Ger;
begin
Label1.Caption:='Hallo ,Programmierer!!';
end;

Procedure TForm1.hallo_Ita;
begin
Label1.Caption:='Ciao ,Programatori!!';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Hallo_Ind;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Hallo_Eng;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Hallo_Spa;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Hallo_Ger;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Hallo_Ita;
end;

end.
Saya Harap anda sudah paham ya!!!he..he..semoga bermanfaat .