Logika IF (DELPHI) yang sederhana

Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case,sekarang kita praktekan pada delphi dengan contoh sederhananya.. ,,,
okelah sekarang kita mulai saja okeh okeh.
kita bentuk formnya seperti kaya gini


untuk tombol keluar
cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya

edit1.text:='';
edit2.text:='';
edit3.text:='';
edit1.setfocus;

dan untuk tombol proses
scriptnya kaya gini

procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai > 85 then
  ket:='lulus'
else
  ket:='tidak lulus';
edit3.Text:=ket;
edit3.enabled:=false;
end;

Posted in: Delphi