önce delphinin hata mesajı çalışıyor

[sga]

merhaba,
ben edit4 ün uzunluğu label4 e eşit olunca kullanıcı yazı yazamasın ve beep sesi versin istiyorum onun için şöyle bi şey yazdım.

Kod: Tümünü seç

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if length(edit4.text)=length(label4.caption) then  begin
   key:=#0;
   beep; end;
end;

ama
delphi önce kendi hata mesajını veriyor sonra yine devam edersem benim kodum çalışıyor.neden olduğunu anlayamadım.yardım ederseniz sevinirim

[balsoft]

hata mesajından kastın nedir gelen hatayı eklersen yardımcı olmaya çalışırım

[sga]

verdiği hata mesajı bu :

Project onparmak.exe raised exception class EAccessViolation with message 'Access violation at address
004367B0 in module 'onparmak.exe'. Read of address 00000070'. Process stopped. Use Step or Run to
continue.

[balsoft]

yazdığın kod o hatayı verebilecek bi çerik taşımıyor başka bi yerden çağırıyor olabilir diğer bölümleri kontrol edersen iyi olur

[sga]

çok teşekkür ederim gerçektende onunla ilgisi yok muş

[balsoft]

kolay gelsin

[rsimsek]

Delphi IDE menü sünden Tools / Debugger Options -> Language Exceptions tab ından "Stop on Delphi Exceptions" un başındaki işareti kaldır. Kodunda herhangi bir hata oluşmasını try / except / end ile yakalayabilirsin.. Dolaysıyla hata yakalama kontrolu programcıya geçmiş olur

[sga]

teşekkürler