ذخیره یک فایل متنی برای ارور های کد [بایگانی]

matinebi

پنج شنبه 14 آذر 1387, 09:37 صبح

میشه یک فایل متنی ایجاد کرد که در صورت بروز مشکل در برنامه تمامی ارور ها رو در این فایل متنی ریخت ؟؟؟؟

shervin farzin

پنج شنبه 14 آذر 1387, 10:09 صبح

سلام
بله قربان چرا نشه .
يه متغيير از نوع TStringList به صورت Global در برنامت تعريف ميكني . بعد روي OnCreate فرم
اول برنامت اونو Create ميكني . روي OnDestroy فرم آخر برنامت هم بايد از خاصيت
SaveToFile كه از خاصيتهاي خود متغير TStringList هست استفاده كني .
براي ريختن متن Error دورن اون راههاي زيادي هست ولي يكي از راههاي ساده و مورد علاقه من
استفاده از كامپوننت ApplicationEvents . اين كامپوننت رو روي فرمت ميذاري و داخل Event به نام
OnException كد ورود اطلاعات رو مينويسي . مثل كد زير :

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
ErrorLog.Add(e.Message);
end;

در كد بالا ErrorLog همونطور كه عرض كردم از نوع TStringList ميتونه باشه .
موفق باشيد .