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.

dunia kraton

CINTA kadang tidak adil,kenapa cinta pada pasangan lebih besat dari pada cinta kepada ALLAH??
Pacar marah mati-matian minta maaf,gimana kalau ALLAH marah??
apa kita berdoa seharian...agar ALLAH memaafkan kita...
Pacar nyuruh kerumahnya pasti kita datang senang hati,tapi jika ALLAH menyuruh kita datang kerumah nya kita seola-olah tidak menganggap....
CINTA pada ALLAH lebih penting dari CINTA apapun...
dan "AKU HANYA CINTA ALLAH YANG MAHA PENCIPTA DAN MAHA PENGUASA, APABILA AKU MENCINTAI SESUATU ITU KARENA ALLAH"
..........................................AMIEN................................................