table hata kontrolü nasıl yapılabilir?

[metemete]

try
table1.post
except
hatakodu:=??
end;
hata oluşursa hata kodunu nasıl alabiliriz?

[freeman35]

OnPostError Event inde yakalayabilirsin
Kolay gele

[mege]

Kod: Tümünü seç

except
   on E : EDBEngineError do
      begin
      Screen.Cursor:=crDefault;

      case E.Errors[0].ErrorCode of
           DBIERR_HEADERCORRUPT,
           DBIERR_FILECORRUPT : begin
           MessageDlg(,mtError,[mbOk],0);
           MessageDlg(E.Message + #13+ 'Kod : '+IntToStr(E.Errors[0].ErrorCode)
                  ,mtError,[mbOk],0);

                                end;

           DBIERR_INDEXOUTOFDATE,
           DBIERR_INDEXCORRUPT,
           DBIERR_NOSUCHINDEX : begin
                               {hata mesajı}
                                end;
           end;{case}
      end;

   on E:EDataBaseError do
      begin
      
      MessageDlg('dcdsfsdfs'+E.Message,mtError,[mbOk],0);

      end;
end;

hata mesajlarını eklenir. ayrıca exception yakalamada birkaç fark var. son hali için ayrıca bunuda incele viewtopic.php?p=16916#16916

NOT: bunu paradox tabloda kullanıyorum. interbaseda denedmedim çünkü eski bir sürüm(çoook eski ) delphi kullanıyorum. bu yüzden fazla ayrıntıya girmedim.

exception yakalama farkı ile ilgili linki incele

Kod: Tümünü seç

    e.ClassName = 'EBadId'

mantık ise program açılışında tüm tabloları sırayla try except arasında bir veri post edip siliyorum. eğer hata oluşursa, alarmla ilgili bir fonksiyona dallanıyor.. örneğin index bozulmuş ise index oluşturuyor vs..vs..


eğer interbase için yapasanız buraya gönderirsiniz

[oguzozturk74]

hocam bu yazdığın kod , paradox v.b. için mi ?
Yoksa interbasede de kullanılabilir mi ?
Bir açıklama yapabilirsen memnun olurum..