Real Name	:	Nesrin Uluca
Subject	:	Kontrol İfadeleri
Description	:	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 kodları incelersek ...
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 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 ( i ) ) ; 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 ;
Rating	:	0.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor