Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Case . . . OF dalam Delphi ...

Selain if delphi juga mengenal Case. berbeda di dalam menggunakan if dengan
Case, Jika menggunakan if expresi pembandingnya bisa menggunakan type data
string, integer, dan lainnya.
Namun Case kita hanya bisa menggunakan type data Char atau angka.
contoh :
If Edit1.text:=' ' then tetapi case tidak bisa menggunakan cara seperti diatas.
Format Case :

  1. case expressi of caseList1:   
  2. statement1; ...   
  3. case List n:   
  4. statement n;   
  5. end  
contoh : untuk demo ini buatlah aplikasi baru, tambahkan edit1, button1 dan memo1. berikut ini listing programnya

  1. procedure TForm1.Button1Click(Sender: TObject);   
  2. var angka:integer;   
  3. pesan:string;   
  4. begin   
  5. angka:=strtoint(edit1.text);   
  6. case angka of 1: pesan:='angka 1';   
  7. 5: pesan:='Bilangan Ganjil';   
  8. 6..10 : pesan:='angka antara 6 sampai 10';  
  9.  11..20 : begin showmessage('ada 2 statatement pakai begin end');   
  10. pesan :='Bilangan antara 11 sampai 20';   
  11. end;   
  12. end;   
  13. memo1.lines.add(pesan);   
  14. end;   
  15. end.  


0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.