مشكلة mysql و delphi

الا يوجد احد بيعرف كيف تخطي الاخطاء بالدلفي؟؟؟؟؟

يمكنك ‘ستخدام Application.OnException

شكرا اخي سوف ابحث في المنتدى واذا لم اعرف طريقة استخدامه سوف اسالك

اخي لقد جربت الtry لكن الخطء ما زال يظهر وهو يظهر في هذا الكود

////////////////////////////////////////////////////////////////////////////////
// returns a value as pchar based on its index in current row
function TMysqlResult.FieldValue(aIndex: Integer): pchar;
begin

  result:=nil;

  if (aIndex>-1) and (aIndex< ffieldscount) then //are we in range?
    begin
      if ftype=rtUsed then
        result:=TPPCA(frow)[aIndex] //if it is used we have a single row
      else
        if fcurrent_row<>nil then
          result:=TPPCA(fcurrent_row)[aIndex]; //else we access current row
    end;

end;

ساعدوني ارجوكم

هل من الممكن ان تشرح Application.OnException؟؟

مثل ما قال لك Application.OnException ... DeltaAziz

جرب :

 public
        procedure MyExceptionHandler(Sender: TObject; E: Exception);
................
procedure TForm1.MyExceptionHandler(Sender: TObject; E: Exception);
begin
 ضع ما تريد  عند حدوث خطاء 
end;
وفي حدث  OnCreate  ضع  :
Application.OnException := MyExceptionHandler;

وهناك من يقوم بتعطيل الــ Error

SetErrorMode(SEM_FAILCRITICALERRORS);

في اون كرييت او في البروسيجر او الفنكشن المستخدم

ملاحظة :

بعض الــــ Exception تضهر فقط في الديزاين تايم ... اقصد اذا شغلت برنامجك خارج الدلفي

راح يعمل معاك تمام ويعمل اعتراض الأخطاء ... وكذالك except .. try

انت جرب وان شاء الله تتسهل امورك .

مشكور اخي تعطيل ال error هو المطلوب لان الException لا يعطل البرنامج بل بعد الضغط على ok يكمل البرنامج عمله الطبيعي مشكور