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:

if ... { expression1 } then
begin
if ... { expression2 } then
... { statement1 }
end
else
... { statement2 } ;

Contoh :

Untuk memindahkan cursor ke edit selanjutnya jika ditekan enter.

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;

Klik Like/share jika anda menyukai tulisan Share

Statement IF

0 Reply :

Posting Komentar