Bazı durumlarda dongu bitmeden donguden cıkılmak istenebilir. Bu gibi durumlarda dongu
kontrol deyimlerini kullanmak gerekir. Bunlardan bazıları Break, Continue gibi deyimlerdir.

Break
Break kontrol deyimi For,While veya Repeat dongulerinden birinde donguden cıkmak icin
kullanılır.Aşağıdaki orneği inceleyelim.
Ornek :
Kod:
procedure TForm1.Button1.Click ( Sender : TObject ) ; var i : array [1 .. 20 ] of string ; k : integer ; begin for i := 1 to 20 do if i [ k ] = 'delphiform' then begin break ; if > 50 then begin ShowMessages (' Aranan kayıt bulunamadı. Tekrar deneyiniz...' ) ; end else ShowMessages (Inttostr ( k ) + ' . kişi' ) ; end ; end ;
Continue
Continue; For, While veya Repeat dongulerinde bazı şartlar gercekleştiğinde dongunun sonuna
gitmeden tekrar başa donmesini sağlar.
Ornek:
Kod:
var i : integer ; Begin for i := 1 to 20 do if i