Halaman

Rabu, 06 April 2011

Perulangan (For) di DELPHI

Perulangan merupakan aktifitas yang sama yang dilakukan secara berulang ulang di dalam sebuah program. Perulangan ini bisa proses pencarian, pencetakan dan sebagainya.
Delphi mempunyai fasilitas perulangan tak bersyarat yaitu perulangan/looping For.
syntax :
For ... to 
contoh :
  1. procedure TForm1.Button2Click(Sender: TObject);  
  2. var x:integer;  
  3. begin  
  4. for x:=1 to 5 do  
  5. begin  
  6.   memo1.Lines.Add(inttostr(x));  
  7. end;  
  8. end;  
  9. perintah di atas jika dilakukan dengan manual maka sebagai berikut  
  10. procedure TForm1.Button2Click(Sender: TObject);  
  11. begin  
  12.   
  13.   memo1.Lines.Add(inttostr(1));  
  14.   memo1.Lines.Add(inttostr(2));  
  15.   memo1.Lines.Add(inttostr(3));  
  16.   memo1.Lines.Add(inttostr(4));  
  17.   memo1.Lines.Add(inttostr(5));  
  18.   
  19. end;  

Tidak ada komentar:

Posting Komentar

Terimakasih Sudah Berkomentar di artikel ini