Fungsi IF

Fungsi IF digunakan untuk memilah data sehingga
nilai yang diinginkan menjadi tepat dan akurat.
Syntax :

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); begin if key=#13 then eNama.SetFocus end; Mengisi nilai combobox status kawin berdasarkan jenis kelamin procedure TForm1.ekelaminKeyPress(Sender: TObject; var Key: Char); var npilih:byte; begin npilih:=ekelamin.ItemIndex; if key=#13 then begin // cek jika laki laki ubah nilai status if npilih=0 then begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Duda');end else // cek jika perempuan ubah nilai status begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Janda'); end; estatus.SetFocus; end;  

Semoga Bermanfaat
Cuma sedikit yang bisa saya tuliskan. . .