Percabangan Case (DELPHI) yang sederhana

JIka kemarin mengenai postingan If dalam delphi dalam bentuk yang sederhana maka kali ini saya kasih contoh tentang percabangan case nya :) :D
so kita lihat wokeh kaya gimana2 nya aja nya tuuuuuch
bentuk formnya samakan saja hanya kita bedakan listingnya saja getoh ceritanya


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

Posted in: Delphi