'Error Trapping' Thread RSS Feed

Error Trapping

Wed, 10 Sep 2003 07:10:46 -0700

Hi all,

Can anyone help me with trapping error 106 at runtime with the readln command?

Rgds,
crashed

Re: Error Trapping

Wed, 10 Sep 2003 11:06:46 -0700

: Hi all,
:
: Can anyone help me with trapping error 106 at runtime with the readln command?
:
Hi crashed,

excerpt from Turbo Pascal Help:

"Read and ReadLn report this error if a numeric value read from a text file doesn't conform to the proper numeric format."

Ergo, I suggest
a) using (for testing/trapping only) not a numeric, but a string variable for reading data (this always works) and
b) setting a breakpoint after reading from file this string. From the string's format You can know what's happening.

Best regards,

gyapesz

Re: Error Trapping

Wed, 10 Sep 2003 11:09:00 -0700

Hi there!.

Just try this:

var
x : integer;

begin
write('Type an integer: ');
{$I-}
readln(x);
{$I+}
if (IOResult = 0) then writeln('Ok, thanks!')
else writeln('I have asked for an integer!!!');
end.

{$I-} turns off runtime error while reading from a file or from the keyboard!. If there is something bad, function IOResult results different to 0.

Re: Error Trapping

Thu, 11 Sep 2003 04:42:39 -0700

: Hi there!.
:
: Just try this:
:
: var
: x : integer;
:
: begin
: write('Type an integer: ');
: {$I-}
: readln(x);
: {$I+}
: if (IOResult = 0) then writeln('Ok, thanks!')
: else writeln('I have asked for an integer!!!');
: end.
:
: {$I-} turns off runtime error while reading from a file or from the keyboard!. If there is something bad, function IOResult results different to 0.
:

Do I need to USE any library???

Thanks for your help.
Crashed

Re: Error Trapping

Thu, 11 Sep 2003 06:58:23 -0700

: Do I need to USE any library???
No!. It runs under TP7 without using any library. I think it's the same under FPC.