While Do 2

// while do 2 ...


// Menghapus Isi Memo 1 per 1 ...

procedure TForm2.Button1Click(Sender: TObject);
var i: integer  ;
begin

while memo1.Lines.Count  > 0 do begin       // apabila jumlah paragraf memo > 0
Application.ProcessMessages ;               // Berguna Untuk Process tetap berjalan
Memo1.Lines.Delete(Memo1.Lines.Count -1) ;  // menghapus paragraf terkhir memo berdasarkan index -1
Sleep(40) // Untuk jeda 0,4 detik
end;

end;

While do 1

//While do 1

{
While do adalah Sebuah Perulangan Yang Berulang sampai kondisinya terpenuhi ...

While = apabila
do = maka/lalu

COntoh

while i <> 10 do begin
apabila i tidak sama 10 maka mulai .... Jadi Akan berulang sampai i = 10 ....

?? apa yang terjadi jika i tidak sama 10 ... contoh ...


}


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

procedure TForm2.Button1Click(Sender: TObject);
var i: integer  ;
begin
memo1.clear ;
i := 0 ;                                  // i adalah 0

while i <> 10 do begin                    // apabila "i" tidak sama 10 maka
Memo1.Lines.Add(inttostr(i)) ;            // tambahkan paragraf memo1 (konfersi dari int to str (i))
i := i + 1 ;                              // i adalah nilai i + 1 ...
end;


end;

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

Repeat Until 2

// Repeat Until 2

// Menghapus isi memo 1/1 ... dengan repeat until


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

procedure TForm2.Button1Click(Sender: TObject);
begin

repeat   // ulang

Application.ProcessMessages ;   // membuat aplikasi berjalan Walau kode jalan
Memo1.Lines.Delete(Memo1.Lines.Count -1) ;   // menghapus paragraf memo berdasarkan index terakhir
Sleep(50) ;  // jeda 0.5 detik


until Memo1.Lines.Count = 0;   // kecuali jumlah paragraf memo = 0

end;

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

{

Jadi Perulangan Menghapus paragraf memo , akan terus berlanjut sampai jumlah paragraf = 0

}

Repeat Until 1

// Repeat Until 1

{

Repeat until adalah Perulangan Yang akan berhenti jika kondisi Until terpenuhi ...

Repeat = Ulang
Until = Kecuali

Contoh ...
repeat indra.katakan(i love you)  // ulang indra.katakan i love u

until Dia.katakan(i love u to ) // kecuali dia katakan i love you to ...


// jadi indra akan mengatakan terus menerus i love you ,, sampai dia mengatakan i love u to
}


// contoh delphi

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

procedure TForm2.Button1Click(Sender: TObject);
var i: integer  ;
begin
i := 0 ;   // i adalah 0

repeat           // ulang
i := i + 1 ;     // i := nilai (i) + 1
memo1.Lines.Add(inttostr(i) ) ;     // Mengisi memo


until (i = 10);  // kecuali i = 10


end;


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

// jadi proses akan terus berulang sampai i dapat nilai 10 ..

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

}

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)"




}

For to do 2

// For to do 2

{
For = Untuk
down = bawah
to = sampai
do = maka/lalu
:= adalah

Contoh

For i := 10 downto 0 do
artinya
untuk i adalah 10 sampai bawah 1 lalu .... artinya Nilai i akan berulang mulai dari 10 sampai kebawah 0...

Maka dihasilkan nilai I ..
i = 10
i = 9
i = 8
i = 7
i = 6
i = 5
i = 4
i = 3
i = 2
i = 1


}


// contoh di delphi

procedure TForm2.Button1Click(Sender: TObject);
var i: integer ;
begin
Memo1.Clear ;

for I := 10 downto 1 do begin  // Perulangan 1 sampai 10
  Memo1.Lines.Add(IntToStr(i))  ;   // Mangisi paragraf memo dengan konfersi angka jadi string pada Nilai I
end;

end;

For to do 1

// For to do 1

{
For = Untuk
to = sampai
do = maka/lalu
:= adalah

Contoh

For i := 0 to 10 do
artinya
untuk i adalah 0 sampai 10 lalu .... artinya Nilai i akan berulang mulai dari 0 sampai 10...

Maka dihasilkan nilai I ..
i = 1
i = 2
i = 3
i = 4
i = 5
i = 6
i = 7
i = 8
i = 9
i = 10


}


// contoh di delphi

procedure TForm2.Button1Click(Sender: TObject);
var i: integer ;
begin
Memo1.Clear ;

for I := 1 to 10 do begin  // Perulangan 1 sampai 10
  Memo1.Lines.Add(IntToStr(i))  ;   // Mangisi paragraf memo dengan konfersi angka jadi string pada Nilai I
end;

end;

Case of 2

// Case Of 2

{
Case Of Juga Dapat Diberikan Banyak Tindakan ... Seperti dibawah ini

Contoh Menampilkan biodata Berdasarkan nim menggunakan case of
}

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


procedure TForm2.Button1Click(Sender: TObject);
begin

case strtoint(edit1.Text) of
213280164 :                   // apabila nilai edit1 = 213280164 Maka mulai
begin                         // Pembatas Kode Nilai 213280164
memo1.Lines.Add('Indra') ;    // Mengisi memo
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('parepare') ;
memo1.Lines.Add('Informatika') ;
end;                          // Penutup Kode nilai 213280164

213280163 :  begin

memo1.Lines.Add('Rani') ;
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('Sidrap') ;
memo1.Lines.Add('Informatika') ;
end;

213280162 :  begin
memo1.Lines.Add('Dwi') ;
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('Pinrang') ;
memo1.Lines.Add('Bhs Inggris') ;


end;
end;



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

Case of 1

// Case of 1

{
Case of adalah Percabangan Yang Memiliki Kondisi tertentu , atau tetap ...


case biasa digunakan untuk mempermudah percabangan if then  Jika nilai itu tetap ..

Seperti contoh dibawah ini

}



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

procedure TForm2.Button1Click(Sender: TObject);
begin

case strtoint(edit1.Text) of         // Kasus Integer(edit1.text) pada
1 :  showmessage('Satu') ;           // Jika Jika nilai edit1 = 1 maka . tampil pesan 1..
2 :  showmessage('Dua') ;            // dst
3 :  showmessage('Tiga') ;
4 :  showmessage('Empat') ;
5 :  showmessage('Lima') ;
6 :  showmessage('Enam') ;
7 :  showmessage('Tujuh') ;
8 :  showmessage('Delapan') ;
9 :  showmessage('Sembilan') ;
10 :  showmessage('Sepuluh') ;
end;

end;


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

{
Berikut contoh case .. Nilai yang ada pada percabangan Tetap / Tertentu ..

Case tidak dapat menggunakan Kode "> , < , = , <> "

Dan Itu mempermudah If Then Jika nilainya tetap ...
}