Bazı durumlarda döngü bitmeden döngüden çıkılmak istenebilir. Bu gibi durumlarda döngü kontrol deyimlerini kullanmak gerekir. Bunlardan bazıları Break, Continue gibi deyimlerdir. Break Break kontrol deyimi For, While veya Repeat döngülerinden birinde döngüden çıkmak için kullanılır. Aşağıdaki örneği inceleyelim. Örnek : Kod: procedure TForm1. Button1. Click ; var i : array of string ; k : integer ; begin for i := 1 to 20 do if i = 'delphiform' then begin break ; if > 50 then begin ShowMessages ; end else ShowMessages (Inttostr + ' . kişi' ) ; end ; end ; Continue Continue; For, While veya Repeat döngülerinde bazı şartlar gerçekleştiğinde döngünün sonuna gitmeden tekrar başa dönmesini sağlar. Örnek: Kod: var i : integer ; Begin for i := 1 to 20 do if i<10 continue ; end ; ShowMessages( Inttostr ) ; end ; Exit Exit; mevcut program bloğundan, bloğun sonuna ulaşmadan çıkmaya yarar. Örnek : Kod: var i : integer ; begin i := strtoint ( Edit1. Text ) ; if i <10 then begin exit end else Edit1. Text := 'i'nin değerleri 10'dan büyük.' ; end ; end; Halt Programdan çıkış sağlar. Örnek: Kod: Begin Form1. Halt ; // Programdan çıkış sağlar. end ; Saygılar.. Mx-