پیغام خطای وحشتناک

[ariobarzan]

با سلام به دوستان عزیز
من وسط پروژ ه به یک مشکل بزرگ برخوردم
تو یکی از فرم ها روی هر آبجکت که بخوام روی event اون ، کد بنویسم پیغام خطای

Could not find source location to add method FormDestry. "END." or INITIALAZION not found in unit source

دیده میشه . و فقط تو همین فرم اینجوریه
هر چی این فرم را با بقیه مقایسه کردم ببینم مشکل چیه ، چیزی دستگیرم نشد .
ممنون میشم اگه دوستان راهنمایی کنند.

[Hsimple11]

دوست عزیز پیغام خطا را بخوانید متوجه میشوید. این خطا زمانی رخ میدهد که source یونیت شما یکی از اجزای اصلی آغارین (Initialization) یا پایانی (.End) را نداشته باشد. مثلا بطور اتفاقی ENِD انتهای یونیت را پاک کرده اید یا برای مثال reserved word ای مثل Implementation وجود ندارد.

موفق باشید....

[ariobarzan]

با تشکر از توجه شما
من بین این فرم و فرم های دیگه مقایسه دقیقی انجام دادم .
کلمات رزرو شده و اصلی تو فرمها و فرم مشکل دار مثل هم و با همون ترتیب دیده می شوند
آخر فرم هم end. داره ولی مشکل باز هم دیده میشه .
اگه چیز دیگه ای به ذهن شما میرسه ممنون میشم راهنمایی کنید.

[hentjanson]

خط ب خط برنامه رو اجرا كنيد اينطوري معلوم ميشه كدام خط برنامه دچار اشتباست و تا كدام خط برنامه صحيح كار ميكنه .

[ariobarzan]

وقتی برنامه کمپایل میشه یا خط به خط اجرا میشه ، مشکلی نداره
event هایی هم که قبل از بروز مشکل کد نویسی شدند ، دارند کار میکنند ولی
روی یک event جدید که دابل کلیک میشه یا حتی روی event های نوشته شده ،
باز هم همین پیام را می ده. مشکل هنوز هم حل نشده
از توجه شما ممنونم

[SYNDROME]

وقتی برنامه کمپایل میشه یا خط به خط اجرا میشه ، مشکلی نداره
event هایی هم که قبل از بروز مشکل کد نویسی شدند ، دارند کار میکنند ولی
روی یک event جدید که دابل کلیک میشه یا حتی روی event های نوشته شده ،
باز هم همین پیام را می ده. مشکل هنوز هم حل نشده
از توجه شما ممنونم
ببین End نقطه داره پایانی را داری یا نه؟
بد تست کن ببین همه Beginها End دارند یا نه؟
مثلا اگر نوشته ای


IF True Then
Begin

End;

یعنی باید تعداد Beginهات به تعداد Endهات برابر باشد.البته End نقطه دار آخر را در نظر نگیرید.
این کار را می توانید با یک جستجو انجام دهید.
موفق باشید

[ariobarzan]

end پاياني نقطه دارد
تعداد begin , end ها هم بدون در نظر گرفتن end پاياني با هم برابره
( البته فكر كنم خود دلفي هم موقع كمپايل شدن برنامه چك مي كنه)

به هر حال از توجه شما ممنونم

[اصغر (پآچ)]

سلام دوست من

از دستور هایی که بدون Begin استفاده میشن و باید حتما ;end رو داشته باشند استفاده نکردی؟
مثلا Case ...... of ؟
این دستورات بدون Begin هستند ولی باید حتما ;end داشته باشند.

موفق و موید باشی

[Golzar7]

احتمال زياد مشكل شما از داخل فايل DFM فرمتون است اگه اون فايل رو چك بكوني به احتمال زياد مشكل رو پيدا ميكني
موفق باشيد.

[MSK]

man ham ba nazare bala movafegam.
un file ro ba note pad baz kon bebin moshkel to unja nist?
masalan momkene masiri ke baray unit formet moshakhas karde eshtebah shode bashe.
albate momkene ba tavajoh be in ke delphi baray optimize kardan compile faghat gesmat hay jadid ro compile mikone bekhatere hamin barnamat ba compile jadid be moshkeli bar nemikhore va labate momkene dar nahayat ye moshkele dakheli delphi bashe va baray hamin netuni ba in kara hallesh koni?!
man pish nahad mikonam ye form jadid besaz ba component hay form gabli ro to un ham ezafe kon. filesh ro ba ye nam dige save kon va dar akhar code hay ghabli in form ro (faget bein "implementation" va "End." ro). az form gabli copy con to unit in form jadidet.
fekr konam ba in kar moshkelet hal beshe.
albate agar be gofteye khodet moshkel az code nabashe.
babat fingilish ham ozr mikhm. to daneshgaham ba computeresh farsi nadare

[hentjanson]

دستورات شرطي خود رو تست كنيد مراحل begin و end هماننيد پست 6 كه دوستمان مثال زدند . هر شروع يك پايان داره اين مراحل را چك كنيد مشكل شما از همين موضوع هستش . يك


end;
يا
end.


كم داره احيانا

[ariobarzan]

مشكل حل شد
بالاخره مشكل حل شد:لبخند::لبخند::لبخند::لبخن� �::لبخند::لبخند::لبخند::لبخند: :لبخند::قهقهه::قهقهه::قهقهه::� �هقهه::قهقهه::گریه::گریه::گری� �::گریه:

بعد از سرو كله زدن زياد با برنامه و مقايسه اون با برنامه هاي ديگه و ......
متوجه شدم كه همه اين فتنه ها زير سر يه ; لعنتي بوده كه جا افتاده بود.
براي اينكه بتونم از يه متغير مشترك تو همه فرم ها استفاده كنم ، متغير را بعد از
قسمت public تعريف ميكنم.
بين متغير هايي كه تعريف شده بود ، يكي بدون ; بود .

از همه دوستاني كه لطف كردند و براي حل مشكل تلاش كردند تشكر مي كنم.
:تشویق::تشویق::تشویق::تشویق::� �شویق::تشویق::تشویق::تشویق::ت� �ویق::تشویق::تشویق::تشویق::تش� �یق::تشویق::تشویق::تشویق::تشو� �ق::تشویق::تشویق::تشویق::تشوی� �::تشویق::تشویق::تشویق::تشویق: :تشویق: