Case of 1

// Case of 1

{
Case of adalah Percabangan Yang Memiliki Kondisi tertentu , atau tetap ...


case biasa digunakan untuk mempermudah percabangan if then  Jika nilai itu tetap ..

Seperti contoh dibawah ini

}



//=========================================

procedure TForm2.Button1Click(Sender: TObject);
begin

case strtoint(edit1.Text) of         // Kasus Integer(edit1.text) pada
1 :  showmessage('Satu') ;           // Jika Jika nilai edit1 = 1 maka . tampil pesan 1..
2 :  showmessage('Dua') ;            // dst
3 :  showmessage('Tiga') ;
4 :  showmessage('Empat') ;
5 :  showmessage('Lima') ;
6 :  showmessage('Enam') ;
7 :  showmessage('Tujuh') ;
8 :  showmessage('Delapan') ;
9 :  showmessage('Sembilan') ;
10 :  showmessage('Sepuluh') ;
end;

end;


//========================================

{
Berikut contoh case .. Nilai yang ada pada percabangan Tetap / Tertentu ..

Case tidak dapat menggunakan Kode "> , < , = , <> "

Dan Itu mempermudah If Then Jika nilainya tetap ...
}