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;

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