if not(Error(11830 2E36))then

[samety81]

if not(Error(11830 2E36))then
bu tarz erroru nasıl kontrol ederim bu sekil yapmaya calıstım fakat yapamadım biras alıntıdır:)
bu hata kodunu gormek istiyorum
teşekkürler

[vedatkaba]

belki şu şekilde bir kontrol sana bir fikir verecektir.


Key violation hatasını yakalamak..

Kod: Tümünü seç

procedure TForm1.TablePostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
if (E is EDBEngineError) then
  with EDBEngineError(E) do begin
    if Errors[ErrorCount - 1].ErrorCode = DBIERR_KEYVIOL then
    begin
      Katar := 'Aynı Tür Kayıt Ekleme Hatası oluştu. '+#13+
               'Bu hatadan dolayı Kayıt işlem Yapılmadı.'+#13+
               'Bazı Değerleri değiştirerek tekrar deneyin';
      ShowMessage("Anahtar hatası / yanlış anahtar");
      Action := daAbort
      end
    else
      ShowMessage(E.Message);
  end;

end;

[fduman]

if not(Error(11830 2E36))then
bu tarz erroru nasıl kontrol ederim bu sekil yapmaya calıstım fakat yapamadım biras alıntıdır:)
bu hata kodunu gormek istiyorum
teşekkürler

Ne sorduğunu anlamadım?

[samety81]

if not(Error(11830 2E36))then
bunu ben yazdım
11830 2E36 bu koduda internette delphi hata kodlarında buldum programın verdiği hata buydu bu hatayı verdiği zaman alttaki işlemleri yaptırma diyeceğim yani hata olmadığı zaman işlemi yap diyeceğim
fakat ilk defa hata yakalamaya çalıştığım için yapamadım

[fduman]

Ne yaparken bu hatayı veriyor. Veritabanına mı bağlanıyorsunuz, ne işlemi yapıyorsunuz. Bu hata kodu bir bellek erişim hatasına benziyor yanlız. Hatayı (kodunu değil) tam olarak yazar mısınız?

[sabanakman]

Bu derleme hatası ise böyle bir şey yapılamaz, çünkü program derlenemiyordur . Eğer çalışma zamanında oluşan bir hata ise o zaman try-except ve try-finally konusuna biraz çalışman gerekiyor. Basit örneklerle anlatılırsa:

Kod: Tümünü seç

try
  .
  .//<-işaretlisatır
  .
except
  on E:Exception do begin //<-Hata çıkarsa burası çalışır
    ShowMessage('Çıkan Hata ->'+E.Message);
  end;
end;

Örneğine göre diyelimki işaretli satırda hata (exception) oluştu. O zaman bu noktadan exception satırına kadar olan kodlar atlanır ve exception'ın altında bulunan bölüm çalışır. Eğer exception satırına kadar bir hata oluşmazsa o zaman da exception ile end arası hata çıkmadığı için çalışmayacaktır.

Kod: Tümünü seç

try
  .
  .//<-işaretlisatır
  .
finally
  .
  .
end;

Örneğine göre ise işaretli satırda hata çıktığını var sayarsak o zaman da kod çalışması yine exception da olduğu gibi finally satırına atlayacaktır. Buradaki temel fark ise hata çıksa da çıkmasa da finally bloğunda bulunan kodlar çalışır (exception bloğundaki kodlar hata çıkmadığı zaman çalışmıyor). Her neyse elinde bulunan kaynaklarda bunlar daha detaylı olarak anlatılıyordur onlara bir göz at istersen. Kolay gelsin.