W Delphi wyróżniamy trzy rodzaje pętli :
1. Pętla for
Pętli tej używamy, gdy wiemy, ile razy chcemy ją powtórzyć. Ilość powtórzeń jest z góry określana już na początku pętli. Warunek zakończenia pętli również jej sprawdzany na jej początku. Jest to najprostsza pętla w Delphi, wymagająca najmniej pisania :)
Przykład :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to 100 do begin
Memo1.Lines.Add('Wykonanie nr: ' + IntToStr(i));
end;
end;
2.Pętla repeat..until
Pętli tej używamy wtedy, gdy nie wiemy, ile razy chcemy ją powtórzyć. Warunek kontynuowania pętli sprawdzany jest na końcu, czyli pętla musi wykonać się przynajmniej raz. Dodatkowo, warunek na końcu pętli może być niemożliwy do spełnienia, więc pętla może wykonywać się w nieskończoność.
Przykład:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := 0;
repeat
Inc(i);
Memo1.Lines.Add('Wykonanie nr: ' + IntToStr(i));
until i = 100;
end;
3. Pętla while..do
Ta pętla jest bardzo podobna do pętli repeat..until. Różnica polega na miejscu sprawdzenia warunku. W pętli while..do warunek sprawdzany jest na początku, a nie na końcu, co oznacza, że w przypadku spełnienia warunku pętla nie wykona się ani razu.
Przykład:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 100 do begin
Inc(i);
Memo1.Lines.Add('Uruchomienie nr: ' + IntToStr(i));
end;
end;
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.
