Statement Case ... Of

Disamping 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.
Syntax Case :

1. case expressi of  
2.     caseList1: statement1;  
3.       ...  
4.     caseListn: statementn;  
5.  end  

Contoh : 
untuk demo ini buatlah aplikasi baru, tambahkan edit1, button1 dan memo1.
berikut ini listing programnya

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs, StdCtrls;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     Edit1: TEdit;  
12.     Button1: TButton;  
13.     Memo1: TMemo;  
14.     procedure Button1Click(Sender: TObject);  
15.   private  
16.     { Private declarations }  
17.   public  
18.     { Public declarations }  
19.   end;  
20.   
21. var  
22.   Form1: TForm1;  
23.   
24. implementation  
25.   
26. {$R *.dfm}  
27.   
28. procedure TForm1.Button1Click(Sender: TObject);  
29. var angka:integer;  
30. pesan:string;  
31. begin  
32.  angka:=strtoint(edit1.text);  
33.  case angka of  
34.       1:  pesan:='angka 1';  
35.       5:  pesan:='Bilangan Ganjil';  
36.   6..10 : pesan:='angka antara 6 sampai 10';  
37.   11..20 :  
38.    begin  
39.      showmessage('ada 2 statatement pakai begin end');  
40.      pesan :='Bilangan antara 11 sampai 20';  
41.    end;  
42.   end;  
43.   memo1.lines.add(pesan);  
44. end;  
45.   
46. end.  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---