سلام عليكم
لم اجد حل لرسالة الخطا الموضحة في الصورة التالية
![[صورة: uBd0fia.png]](http://i.imgur.com/uBd0fia.png)
هذه الرسالة تاتي احيانا فقط لما اقوم بغلق البرنامج ، الشيئ المحير انها تاتي احيانا ليس في كل مرة !
بحثت طويلا و لم اجد الحل. الشيئ الآخر المحير اني كنت اعمل على Windows 7 بدون اي مشاكل و لما إنتقلت لل 8 ضهر هذا المشكل ، أضن الامر له علاقة بالنظام و الله اعلم
وكيف نفيدك ونحن لا نعلم ماهو البرنامج
ضع السورس وسنرى
السلام عليكم
البرنامج تجاري و للشركة حقوق لا يمكنني وضعه للاسف
اضن رسالة الخطا واضحة فقط احتاج اعرف مصدرها لإيجاد حل
المشكل انها متواجدة بكثرة مثل هذا المقال
windowserrorhelps.com/how-to-fix-eaccess-violation-error-at-startup
كما ان هذه الصورة اضن لها علاقة بالموضوع
![[صورة: JskAxJw.png]](http://i.imgur.com/JskAxJw.png)
[url=http://www.delphi4arab.net/forum/member.php?u=12989][/url]استخدم JCLDebug
onexite
شكرا اخي لكن لم افهم اشرحلي اكثر
السلام عليكم
تحاول الوصول الى object/variable في الذاكرة تم تحريره اي تحاول الوصول الى شيئ غير موجود في الذاكرة او تم تحريره و الله اعلم
سلام عليكم
هل قمت بتعديل على ابعاد الفورم ؟
إقتباس : تحاول الوصول الى object/variable في الذاكرة تم تحريره اي تحاول الوصول الى شيئ غير موجود في الذاكرة او تم تحريره و الله اعلم
نعم صحيح
.. فكانت تظهر لي سابقاً عند تحرير اوبجكت غير موجود او تم إستعماله بطريقة خاطئة
على أي حال ... قم بتنقيح الكود الخاص بك بنفسك .. ستجد انك اخطأت في مكان ما .. ليس خطا يجعل البرنامج لا يعمل
وإنما خطا في التعامل مع ربما اوبجكت او متغير .. وركز جيداً وانت تقوم بتحليل الكود
وكذلك أستعمل دالة Create و ( FreeAndNil) لإنشاء وتحرير الـ Objects ..
و New و Dispose لإنشاء المتغيرات التي على هئية مؤشر(pointer) وتحريرها ..
بالتوفيق
S.fateh
و عليكم السلام و رحمة الله
بارك الله فيك اخي الكريم / سابحث جيدا عن هذه الاشياء التي ذكرتها لي لإيجاد حل ، شكرا على مساعدتي
Mr.DOS
نعم اخي اقوم بحفظ ابعاد البرنامج عند غلقه و اقوم بقراءتها في كل عملية تشغيل
بما انو هذا الخطأ يضهر عند الغلق هل تضن المشكل له علاقة بما اقوم به في هذا الإجراء ؟
كود :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var appINI : TIniFile;
begin
Adoconnection1.Close;
appINI := TIniFile.Create('par.ini');
With Tinifile.Create ('par.ini') Do
Begin
try
appINI.Writeinteger ('FormHeight','FormHeightValue',Form1.Height);
appINI.Writeinteger ('FormWidth','FormWidthValue',Form1.Width);
appINI.Writebool ('CheckBarre6','CheckBarre6Value',RadioBox1.Checked);
finally
appIni.Free;
end;
end;
Application.Terminate;
جربت حذف كل الإجراءات الموجودة عند الغلق لكن المشكل ما يزال
ALmuhhnad
جزاك الله خيرا أخي
سأبحث عن المشكل من أول سطر الى اخر سطر و استعمل نصائحك في التعامل مع object / variable
السلام عليكم
الكود المكتوب فوق به على الاقل ثلاث اخطاء.