Pascal and Delphi

runtime error as IOresult<>0

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Aug 2009

Posts: 5

Reputation: amazing_grace is an unknown quantity at this point

Solved Threads: 0

amazing_grace amazing_grace is offline

Offline

Newbie Poster

runtime error as IOresult<>0

Nov 6th, 2009

ok, when the user types in a non-exist file name, the program simply shut down. i dont know what happen

Help with Code Tags

(Toggle Plain Text)

procedure set_up;
begin
write('file');readln(file);
assign(f,file); reset(f);
{$I-}if IOresult<>0 then writeln('NO File....');
close(f);{$I+}
end;
....
{this is the main program}
begin
setup;
end

this proceure is called in the main program ,yet, runtime error occurs and the screen just flashes out. it works perfectly when i type in the correct filename. i need your help!!!

grace

•

Join Date: Oct 2009

Posts: 10

Reputation: quaifp1 is an unknown quantity at this point

Solved Threads: 3

quaifp1

Offline

Newbie Poster

Nov 6th, 2009

Hi,

You must put the IO Checking off flag before the assign statement otherwise the exception occurs before you can check it;

•

Join Date: Feb 2009

Posts: 465

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Nov 8th, 2009

catch the reset(filevar)

 Help with Code Tags 
 pascal Syntax (Toggle Plain Text) 
{$I-}
reset(f);
{$I+}
if ioresult <> 0 then writeln('error when trying to open the file');
{$I-}
reset(f);
{$I+}
if ioresult <> 0 then writeln('error when trying to open the file');

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...