14-03-2021, Saat: 12:44
if Dm_Ayarlar.ADS_Departmanlar.RecordCount>0 then begin Form_Anasayfa.sTabControl_Departman.Tabs.Clear; Dm_Ayarlar.ADS_Departmanlar.First; while not Dm_Ayarlar.ADS_Departmanlar.Eof do begin Form_Anasayfa.sTabControl_Departman.Tabs.Add(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString); if not DirectoryExists(Dm_Ayarlar.ADS_Departmanlar.FieldByName('YOL').AsString) then begin Showmessage(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString+' Arşiv Sayfasının YOL u eşleşmiyor. Lütfen Hepsini Kontrol Edin'); end else begin if Dm_Ayarlar.ADS_Departmanlar.FieldByName('ORIJINAL').AsBoolean then begin if not DirectoryExists(Dm_Ayarlar.ADS_Departmanlar.FieldByName('ORJYOL').AsString) then begin Showmessage(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString+' Arşiv Sayfasının ORJYOL u eşleşmiyor. Lütfen Hepsini Kontrol Edin'); end; end; end; Dm_Ayarlar.ADS_Departmanlar.Next; end; end else begin Showmessage('Hiç Arşiv Sayfasınız Yok ayarlar Kısmından ayarlayınız'); end; Dm_Ayarlar.ADS_Departmanlar.First; DepartmanFiltrele;
showmessage düştüğü zaman 'First chance exception at $7655A8B2. Exception class EAbstractError with message 'Abstract Error'. hatası alıyorum neden acaba