istisna kontrolü sırasında oluşan hata da devam nasıl olur

[delphist]

s.a.

İstisna kontrolünde exception da yakalanan hata dan sonra programın sağlıklı çalışması için tekrar programı nasıl sağlıklı çalıştırabiliriz yani o hatayı nasıl düzeltebiliriz manasında gibi mi desem tam anlatabilmişimdir umarım.

[gkimirti]

try
//buraya hata cıkma olasılıgı olan kodlar
except
//buraya da hata cıkınca yapılması gerekenleri
end

bunun dısında yukardaki blok u try finally arasına alırsan finally end arasına mutlaka calısacak kodları atabilirsin

[fduman]

Mesela Edit1 den kullanıcının sadece numeric değer girsin istiyorsun. Ancak Edit1 i sadece numeric (0-9 arası sayılar) girecek şekilde kodlamadın.

Edit1 değerini de Integer e çeviriyorsun ve programında kullanıyorsun.

Kod: Tümünü seç

try
  IntValue:= StrToInt(Edit1.Text);
except
  ShowMessage('Sayısal değer girmelisin');
  IntValue:= 1;
end;

Burada kullanıcı sayısal değer girmemişse bir çevrim hatası oluşacaktır. Biz bu hatayı yakaladık ve kullanıcıya bildirdik. Aynı zamanda programımız daha sonra bu değeri kullanıyorsa değere 1 vererek programın çatlamamasını sağladık. Yani bir nevi hatayı kurtarmış olduk.

[aslangeri]

s.a.
lordumuzun izniyle kodunda ufak bir değişiklik yaparak kullanıcının geçerli bir sayı girmesinide sağlayabiliriz. şöyleki

Kod: Tümünü seç

try
  IntValue:= StrToInt(Edit1.Text);
except
  ShowMessage('Sayısal değer girmelisin');
  IntValue:= 1;
  Edit1.SetFocus; //editi seçer
  Exit;//procedure veya function u sonlandırır
end;

kolay gelsin.

[fduman]

lordumuzun izniyle ...