Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Statement IF

Share on :
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


0 komentar on Statement IF :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini