Logika Percabangan Case dengan Delphi #29

andrypein.net : Jika kemarin mengenai postingan If dalam delphi dalam bentuk yang sederhana maka kali ini saya kasih contoh tentang percabangan case dengan delphi nya.

untuk formnya samakan saja yang dibedakan hanya listing program nya saja.

dan ini untuk listing programnya untuk event button1 click.

procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
    nilai:integer;
begin
 nilai:=StrToInt(edit2.Text);
 ket:=edit3.Text;
 case nilai of
  90..100:ket:='A';
  80..89:ket:='B';
  70..79:ket:='C';
  60..69:ket:='D';
  50..59:ket:='E';
  else
    messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);
    edit2.SetFocus;
  end;
 edit3.Text:=ket;
 edit3.Enabled:=false;
end;

Gimana? mudah kan,,,,
intinya bisa pascal tentu Delphi pun akan mudah.

Sekian artikel pembahasan percabangan case dengan delphi, semoga bermanfaat.

(AFK*)