مشکل غیر معمول در IF else

[M.Ehsanifar]

سلام دوستان ..
مشکل من خیلی ساده ولی باور نکردنی است . کنترل برنامه وقتی if مقدار false رو بر میگردونه دیگه دستورات مربوط به else رو هم اجرا نمی کنه و از ذوی اون می پره ..



function newShop_shopNoFinder():integer;
var
No:integer;
begin
if DM1.listTable.IsEmpty then
begin
No:=1 ;
end
else
begin
DM1.listTable.Last;
No:=DM1.listTable.Fields[0].Value + 1;
end;
end;

[delphi5]

1- از چه ورژنی استفاده میکنی
2- begin , End اول رو بردار .
در صورت امکان پروژه رو بزار تا بشه روش کار کرد

[vcldeveloper]

BreakPoint گذاشتید که ببینید بخش Else اجرا نمیشه، یا حدس زدید بخش Else اجرا نمیشه؟!

[M.Ehsanifar]

حل شد .. مقدار بازگشتی تابع رو یادم رفته بود ...

در ضمن من بعد از ایجاد موضوع خودم ایراد کار رو پیدا کرده بودم و اینجا نوشته بودم ولی مثل اینکه پاک شده .. نمی دونم چرا !!!
متشکرم که مشکلم رو بررسی کردید ..