Butona Yazdıgım Kısa bir kod ile Kapanışta Hata Alıyorum

[Serkan BOZOĞLU]

Kod: Tümünü seç

if IslemYapiliyor = false then
    begin
        HataYolla('Once Kayıt işlemini'+#13#10+'Tamamlayınız..!');
        exit;
    end;

    if TableREZERVE.RecNo = TableREZERVE.RecordCount then
    begin
        HataYolla('Zaten '+#13#10+'Son Kayıttasınız..!');
    end
else
		begin
    		TableREZERVE.Next;
    end;
end;

Arkadaşlar Yukarıdaki Kodu Butona Yazıyorum, Programı Çalıştırıyorum, Butunu Kullanıyorum
Buraya Kadar Bi Sorun Yok
Fakat Programı Kapatırken
hata Olusuyor
Lütfen Yardımcı olun

Try
Except

İle muhtemelen Sorun Çozulecek Fakat Nereye Uygulayacagımı Bulamadım
Close Olayına Point Bırakıp Kapanısı Takip ediyorum Fakat Hatanın olstugu yeri bulamadım.

[Ertugrul]

Mantiken islemyapiliyor=true ise hata verip exit ile cikilmasi lazim. Ayrica if TableREZERVE.RecNo = TableREZERVE.RecordCount then degil if TableRezerve.EOF then diye olmali. Sihirli kureye programi kapatirken cikan hatayi sordum access violation verdi, sendeki hata ne idi?

[Serkan BOZOĞLU]

yoksa küreyi aynı yerdenmi aldık?
Benimkide access violation.


Şaka Bir Yana yardımın için Teşekkürler
Muhtemelen Düzelecektir Hemen Deniyorum.

[Serkan BOZOĞLU]

Malesef Hata Devam Ediyor
Verdiği Hata Aşağıdaki Gibidir

Application Error
Exception EAccessViolation in module RestRezerve.exe at 001c1d39.
Access violation at address 005c1d39 in module 'ResRezerve.exe'.Read of address 00c36dc6

Herşey normal Sadece kapanısta Hata Veriyor

[Ertugrul]

Peki anaformun on close unda datasetleri ve connection i kapatiyor musun? Veritabani nedir? Ayrica Formun OnClose eventindeki kodlari yazsan daha iyi anlasilir.

[Serkan BOZOĞLU]

veri tabanı Paradox
ve ana formun on close olayında hiçbir kod yazmadım Sadece "FormCreate" ve "FormShow" olayını kullanıyorum
Kapanması gereken Tabloları Kendi Formlarında Kapatıyorum
Aklımı Karıstıran ve mantıgımın almadıgı olay aşagıdaki kodun bir pragramın kapanısına zarar vermesi


if IslemYapiliyor = false then
begin
HataYolla('Once Kayıt işlemini'+#13#10+'Tamamlayınız..!');
exit;
end;
if not TableREZERVE.eof then TableREZERVE.Next
else HataYolla('Zaten '+#13#10+'Son Kayıttasınız..!');

[emin_as]

Breakpoint koyup, satır satır debug et, hangi satırda hata çıkıyorsa görürsün.
Buldugun satırı inceleyerek, hataya neden olan bileşeni, değişkeni tespit edebilirsin.

[aslangeri]

s.a.
eğer bu satırları ekledikten sonra hata vermeye başladı ise
bu kodları nereye ekledin bu kodların altında ve üstünde başka kodlar varmı?
hatayolla metodunun içeriğinde neler yapıyorsun.
free ettiğin ancak nil atamadığın bileşenler varmı?

[Lost Soul]

bi de böyle deneyin.

Kod: Tümünü seç

if IslemYapiliyor = false then
    begin
        HataYolla('Once Kayıt işlemini'+#13#10+'Tamamlayınız..!');
        exit;
    end;

    if TableREZERVE=nil then exit;


    if TableREZERVE.RecNo = TableREZERVE.RecordCount then
    begin
        HataYolla('Zaten '+#13#10+'Son Kayıttasınız..!');
    end
else
		begin
    		TableREZERVE.Next;
    end;
end;

[kayabey]

Merhaba
bildiğiniz gibi, access violation hatası; olmayan(create edilmemiş,bellekte bulunmayan) bir nesneye ulaşmak istenildiğinde ortaya çıkar.Belleğim beni yanıltmıyosa tabi gönderdiğiniz kod bloğu içinde(ilk mesajınızı kastediyorum) bu hatayı verdirebilecek herhangi bir satır göremedim.Bence butonun dışına çıkın sorununuz başka yerde.Sizin Create ettiğiniz form yada başka nesne varmı.Bunlar programdan çıkarken Free ile bellekten atılıyormu buna bi bakın.Eventlerdeki kodları gözden geçirin.Ayrıntı vermediğiniz için daha fazla yardımcı olamıyorum.

[Serkan BOZOĞLU]

bi de böyle deneyin.

Kod: Tümünü seç

if IslemYapiliyor = false then
    begin
        HataYolla('Once Kayıt işlemini'+#13#10+'Tamamlayınız..!');
        exit;
    end;

    if TableREZERVE=nil then exit;


    if TableREZERVE.RecNo = TableREZERVE.RecordCount then
    begin
        HataYolla('Zaten '+#13#10+'Son Kayıttasınız..!');
    end
else
		begin
    		TableREZERVE.Next;
    end;
end;

if TableREZERVE=nil then exit; ile benım sorunum çozuldu tesekkurler