If Then 1

/If Then 1

{
If Then adalah Percabangan 1 Kondisi ... Aksi yang akan terjadi dipasang setelah "Then"

"If"   = Jika
"Then" = Maka

Contoh

"Jika" Nama = Indra "Maka"   //percabangan
tampilkan pesan nama ...  // aksi Jika Percabangan Bernilai Benar...

}



//===========================================


procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit1.Text = 'Indra') and (edit2.Text = '3313231') then
showmessage('Benar') ;
end;



//===========================================

{
if (edit1.Text = 'Indra') and (edit2.Text = '3313231') then Maksudnya
Jika (text edit1 = indra ) dan (text edit2 = 3313231) maka


showmessage('Benar') = maksudnya
Aksi Jika Percabangannya Benar "Tampilkan Pesan (Benar)"




}