Procedure'den cıkıs

[z]

Kullandıgım dilden bağımsız olarak bol bol goto kullanan birisi olarak bu alıskanlıktan bir türlü kurtulamadım.

Şu anda procedure içinde istenen yada istenmeyen bir durum olustuğunda goto ile procedure sonundaki label'e atlıyorum.

Function içinde buna gerek kalmadan exit komutu yeterlı iken procedure de exit komutu derleme hatasına neden oluyor.

Siz bu işin üstesinen nasıl geliyorsunuz?

[cozturk]

çok ayıp. exit ile procedureden çıkar. belki başka sorun vardır.

başka bir satırda  ";" unutulmuş olabilir mi?

procedure TForm1.Button1Click(Sender: TObject);
begin
  exit;
  SHOWMESSAGE('aaa');
end;

burada çalışıyor

[z]

Hocam o zaman benim derleyicide bir şey var.

Çalışan bir programda herhangi bir procedure içinde herhangi bir yere exit; yazmam derleme hatasına neden  oluyor.

Verdiği hata da bana hiç aydınlatıcı gelmiyor.

Verilen hata Statement expected, but expession of type 'TMenuItem' found

[cozturk]

begin,
end;
end.
";"
....
lerden biri  eksik olabilir.

delphi de goto kesinlikle önerilmiyor. ama yasak değil tabi.

[z]

Dediğiniz gibi eksik bir karakter yazmış olsam olsam exit komutu kullanmadığımda da hata vermez mi?

Program çok iyi görünüyor verdiği  warningleri bile tamamen yok ettim.

İşin ilginci exit komutu üzerine gelip F1 ile yardım istediğimde

TMenuItem geliyor, sanki TMenuItem yazmışımda onun için help istemişim gibi.

[z]

Eşek kafam,

Forum üzerindeki komponentlerden birisine Exit ismini vermişim.
(MainMenu üzerinde Programdan çıkmaya yarayan seçeneğe exit adını vermişim)

İyide Delphi bu isme neden isim verirken yasak demedi.

Exit ismini cıkıs ile değiştirince sorun halloldu.