Statement IF

Dalam setiap pemrograman dikenal sebuah fungsi untuk memilah dan menyeleksi data, begitu juga di dalam delphi. Fungsi IF digunakan untuk memilah data sehingga nilai yang diinginkan menjadi tepat dan akurat.
Code:

1. if ... { expression1 } then  
2. begin  
3.   if ... { expression2 } then  
4.     ... { statement1 }  
5. end  
6. else  
7.   ... { statement2 } ;  

Contoh :

• Untuk memindahkan cursor ke edit selanjutnya jika ditekan enter. 

1. procedure TForm1.eNipKeyPress(Sender: TObject; var Key: Char);  
2. begin  
3. if key=#13 then eNama.SetFocus  
4. end;  

• mengisi nilai combobox status kawin berdasarkan jenis kelamin

1. procedure TForm1.ekelaminKeyPress(Sender: TObject; var Key: Char);  
2. var  
3. npilih:byte;  
4. begin  
5. npilih:=ekelamin.ItemIndex;  
6. if key=#13 then  
7. begin  
8.   // cek jika laki laki ubah nilai status  
9.   if npilih=0 then  
10.    begin  
11.     eStatus.Items.Clear; // bersihkan nilai dulu  
12.     eStatus.Items.Add('Kawin');  
13.     eStatus.Items.Add('Tidak Kawin');  
14.     eStatus.Items.Add('Duda');  
15.    end  
16.    else  
17.      // cek jika perempuan ubah nilai status  
18.    begin  
19.     eStatus.Items.Clear;    // bersihkan nilai dulu  
20.     eStatus.Items.Add('Kawin');  
21.     eStatus.Items.Add('Tidak Kawin');  
22.     eStatus.Items.Add('Janda');  
23.    end;  
24. estatus.SetFocus;  
25. 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...  

---