Pętle

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;

...powrót