Delphide procedure veya fonksiyonlarda bazen istediğimiz koşul sağlandığında başka işlem yapmadan procedure veya fonksiyondan çıkmasını istediğimiz durumlarda imdadımıza Exit; prosedürü(procedure) yetişmektedir bu makalemizde bu komutun kullanımını ve örneğini göreceğiz.
Delphide procedure veya fonksiyonlarda bazen istediğimiz koşul sağlandığında başka işlem yapmadan procedure veya fonksiyondan çıkmasını istediğimiz durumlarda imdadımıza Exit; prosedürü(procedure) yetişmektedir bu makalemizde bu komutun kullanımını ve örneğini göreceğiz.
Bulunduğu Unit: System
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | procedure test; var i : Integer; s : string; begin s := ''; // Döngümüz for i := 1 to 10 do begin s := s + IntToStr(i) + ' '; {Koşul sağlandığında prosedürden(procedure) çıkacak olan satır.} if Random(4) = 2 then Exit; end; ShowMessage('i = '+IntToStr(i)); ShowMessage('s = '+s); end; |
Bu procedure’de Exit prosedürünün(procedure) olduğu satır işlendiğinde. ShowMessage’lara uğramadan prosedürden(procedure) direk çıkılacaktır.