delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته

اذا كنت مبرمج دلفي جديد او كنت منتقل من لغة اخرى مثل الفيجوال بيسك او الدوت نت فكنت دائما تقتنص الاخطاء عن طريق رقم الخطاء ErrorNumber او ErrorNo او شئ كهذا .
في الدلفي بالتاكيد واجهتك مشكلة مثل هذه .

اذا هذه الطريقة تعطيك تجميعة وافية عن الخطاء .

كود :
LastErrorIndex,NumberError,NativeError:integer;
 SourceError,DescriptionError,SQLStateError:string;

كود :
try
....
....
....
 ADOQuery1.Open;//Execute your sql statement
except
  LastErrorIndex  :=ADOConnection1.Errors.Count-1;
  SourceError     :=ADOConnection1.Errors.Item[LastErrorIndex].Source;
  NumberError     :=ADOConnection1.Errors.Item[LastErrorIndex].Number;
  DescriptionError:=ADOConnection1.Errors.Item[LastErrorIndex].Description;
  SQLStateError   :=ADOConnection1.Errors.Item[LastErrorIndex].SQLState;
  NativeError     :=ADOConnection1.Errors.Item[LastErrorIndex].NativeError;
end;

الان NumberError سيعود لك برقم الخطاء المطلوب او تعامل مع الخطاء باي شكل تريد .

Delphi4Us