Goto deyimi için öncelikle dallanma yeri belirtilmelidir. Dallanma yeri nasıl tanımlanır?
Label
dallanmayeri;
şeklinde tanımlanır. Örnek bir kod yazalım. GOTO deyimini sonsuz döngü olarak kullanalım.
//***************************************************************************/
label
geridonus;
var
sayi:integer;
begin
sayi:=0;
geridonus:
sayi:=sayi+1;
goto geridonus;
//****************************************************************************/
program sonsuza kadar sayi degişkenini arttiracaktir.
ÖNEMLİ NOT: Delphide sonsuz döngüler sırasında formumuz tabiri caizse kilitlenir. Sürüklenemez ve üzerindeki bir buton veya herhangi bir nesne tıklanamaz. Bunu şu komutla engelleyebiliriz. Bu komutu kullanılan döngü içine yazmalıyız.
//************************************
application.ProcessMessages;
//************************************
Artık programımız döngü içinde de olsa yapılan buton tıklamaları, form sürükleme vs. gibi işlemlere cevap verecektir.
Hiç yorum yok:
Yorum Gönder