Problem z wyjątkami...

var
LiczbaElementowTablicy: Integer;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(Key=VK_RETURN) then
begin
try
LiczbaElementowTablicy:=StrToInt(Edit1.Text);
except
on EConvertError do
ShowMessage(Blad Konwersji!);
end;
end;
end;

Dlaczego powyzszy kod nie dziala? A dokladniej, mimo oblusgi wyjatku konwersji to i tak przrywa mi program i wyskakuje brzydkie okienko;)
Moze mi ktos powiedziec co robie zle?

Chcialbym po prostu zeby zamiast tego brzydkiego okienka wyskoczyla mi wiadomosc taka jak w kodzie;P

Pozdrawiam,

spróbuj tak :

try
:
:
except
on E: Exception do ShowMessage('Wystąpił błąd !'+#13+E.Message);
end;

Okej, juz kumam. Moj sposob tez dzialal, jednak ja zinterpretowalem informacje debugera jako nie obsluzenie wyjatku. Stad to zamieszanie.
No dobrze, a jak mam zrobic, zeby ta informacja debugera mi nie wyskakiwala?

Tools>Debugger Options>Language exceptions

i wylacz Stop on Delphi exceptions

Dzieki pq, jak zawsze jestes nieoceniony pomocy [browar]