This works in Delphi 6 (needed "EConvertError" in full and took out
semi-colon before "else"):
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
try
I := strtoint ('WRONG');
ShowMessage ('This should never print, but it does');
except
on E: EConvertError do
ShowMessage ('Not right')
else
ShowMessage ('That is wrong');
end;
end;
[email protected] on Friday, 1 January 1904 at 12:00 +0000 wrote:
>Message: 2
>From: "Rainer von Saleski" <[EMAIL PROTECTED]>
>Subject: Fw: Exceptions in Delphi 7.1
>
>I don't seem to be able to get my programs to handle exceptions ... at
>all! Even something as simple as
>
>try
> I := strtoint ('WRONG');
> ShowMessage ('This should never print, but it does');
>except
> on EConvertErr do
> ShowMessage ('Not right');
> else
> ShowMessage ('That is wrong');
>end;
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
