Re: [DUG]: Handling exceptions

Mon, 13 Oct 2003 13:20:54 -0700

Perhaps you could use this..?

TryStrToInt

unit

SysUtils

category

function TryStrToInt(const s: string; out i : integer): boolean;

Converts a string to an integer, returns False if string does not represent a valid number. 

var syold : string;
    iyold : integer;
    

syold := InputBox('Birth Year',
        'Please enter birth year', '1973'))

if TryStrToInt(syold, iyold) then         
  ShowMessage('You are now ' +
              IntToStr(2003 - iyold) +
             'years old!')
else
  ShowMessage('Please enter a number');
 
 
----- Original Message -----
From: "gajo" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Tuesday, October 14, 2003 8:52 AM
Subject: [DUG]: Handling exceptions

> Hi,
>
> I have to convert a string to integer. When a string is not correct, then
> the StrToInt procedure raises an exception, and the user gets an error
> message.
>
> I would like to prevent the error message from being displayed. How can I do
> that?
>
> I was trying the following with no results:
> try
>   a := StrToInt(Text);
>   except
>     on EConvertError do begin
>      Application.HandleException(Self);
>      ShowMessage('The user did not get the message')
>     end;
> end
>
> Thanks, Gajo
>
>
>
> ---------------------------------------------------------------------------
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>

Reply via email to