Pętle

CodeLan

Pętle służą do powtarzania ustalonych czynności. W Delphi dostępne są trzy rodzaje pętli.

Pętla For
służy do powtarzania czynności określoną liczbę razy, np.:
{dodanie do Memo stu linijek tekstu}
var petla: integer;
begin
for petla:=1 to 100 do
Memo1.Lines.Add('Linia '+IntToStr(petla));
end;

Pętla While...Do
pętla służy do powtarzania danej czynności dopóki spełniany jest dany warunek, np.:
var x:integer;
begin
x:=0;
while x<10 do
x:=x+1;
end;

Pętla Repeat...Until
pętla jest podobna do while...do, tyle że warunek sprawdzany jest po wykonaniu operacji, np.:
var x:integer;
begin
x:=0;
repeat
x:=x+1;
until x<10
end;

Pętle można przerwać, gdy wystąpi jakiś warunek, funkcją Break, np.:
var petla: integer;
begin
for petla:=1 to 100 do
if petla=99 then break else
Memo1.Lines.Add('Linia '+IntToStr(petla));
end;