procedure TForm1.Timer1Timer(Sender: TObject);
begin
ejam.Text :=timetostr(time);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cnim.Items.Add('12094465');

cnim.Items.Add('12094457');

cnim.Items.Add('12094449');

//dataseparator:='-';u pemisah antara tgl.bln &tahun

ShortDateFormat :='dd-mmmm-yyyy';

etgl.Text :=datetostr(date);
end;

procedure TForm1.cnimClick(Sender: TObject);
begin
if cnim.Text ='12094465'then

begin

enama.Text :='yoga';

ekelas.Text :='12.4H'

end

else

if cnim.Text ='12094457'then

begin

enama.Text :='ferry';

ekelas.Text :='12.4H'

end

else

begin

enama.Text :='eka wahyuni';

ekelas.Text :='12.4h'

end
end;

procedure TForm1.rlakiClick(Sender: TObject);
begin
rlaki.Enabled :=True;

rperem.Enabled :=false
end;

procedure TForm1.rperemClick(Sender: TObject);
begin
rperem.Enabled :=true;
rlaki.Enabled :=false
end;

end.

                               

Mempelajari Procedure dalam Delphi

Procedure digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure dituliskan setelah kata Public, berikut contoh penggunaan procedure :



A. Contoh Design Form



B. Penggalan Koding Program

Double klik button1 atau pilih events onclik pada pada objects inspector, berikut potongan programnya :

...
public
{ Public declarations }
procedure kosong_data;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.kosong_data;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
kosong_data;
end;

end.