Hazırlamakta olduğum bir program da tereddüt etmekteyim. Aşağıda örneğini verdiğim kodlama da hata kontrolü sizce nasıl gerçekleştirilmeli. Yani sağlıklı olan sizce nedir.
Kod: Tümünü seç
Procedure TForm1.KayitKontrol(Sender: TObject);
Begin
//Kaydın daha önce kayıt edilip edilmediği kontrol ediliyor.
KaydiKaydet(Sender);
End;
Procedure TForm1.KaydiKaydet(Sender: TObject);
Begin
//Kayıt işlemi yapılıyor.
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Try
Try
Begin
table1.open;
table2.open;
table3.open;
KayitKontrol(Sender);
End;
Finally
Begin
table1.Close;
table2.Close;
table3.Close;
End;
End;
Except
//Hata Kontrol
End;
end;
Kod: Tümünü seç
Procedure TForm1.KayitKontrol(Sender: TObject);
Begin
Try
//Kaydın daha önce kayıt edilip edilmediği kontrol ediliyor.
KaydiKaydet(Sender);
Except
//hata kontrolü
End;
End;
Procedure TForm1.KaydiKaydet(Sender: TObject);
Begin
Try
//Kayıt işlemi yapılıyor.
Except
//hata kontrolü
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Try
Try
Begin
table1.open;
table2.open;
table3.open;
KayitKontrol(Sender);
End;
Finally
Begin
table1.Close;
table2.Close;
table3.Close;
End;
End;
Except
//Hata Kontrol
End;
end;