If then 2

/If Then 2

{
If Then else adalah Percabangan 2 atau Lebih Kondisi ... Aksi yang akan terjadi dipasang setelah "Then"

"If"   = Jika
"Then" = Maka

// Yang terjadi Jika Kondisi Benar

else = Selain dari pada itu

// Yang terjadi Jika kondisi salah



Contoh
}

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

procedure TForm2.Button1Click(Sender: TObject);
begin

if (edit1.Text <> '') and (edit2.Text <> '') then

    begin
      edit3.Text := Edit1.Text +' '+edit2.Text ;
    end
    else

showmessage('Edit1 atau edit2 Masih Kosong') ;
end;



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

{

Maksudnya ....

if (edit1.Text <> '') and (edit2.Text <> '') then
    begin
// Jika (text edit 1 tidak '') dan (text edit2 tidak '') maka
// Mulai


      edit3.Text := Edit1.Text +' '+edit2.Text ;  //kondisi jika benar
//  text edit3 adalah text edit1 + ' ' + text edit 2

    end  // selesai 1 kondisi
    else // selain dari pada itu

showmessage('Edit1 atau edit2 Masih Kosong') ; // kondisi jika salah
//tampilkan pesan

end;
//selesai

}