RE: [DUG]: Handling exceptions

[Jason Coley]

I use this function before trying to convert the string.


function IsStrANumber(const S: string): Boolean;
var
  P: PChar;
begin
  P      := PChar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

Regards
Jason

-----Original Message-----
From: gajo [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, 14 October 2003 8:52 a.m.
To: Multiple recipients of list delphi
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/
---------------------------------------------------------------------------
    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/