What's wrong with the program?

Question

0.00/5 (No votes)

See more:

Hello, well, the following program opens a file and reads the first two strings that exist in the first line into two variables. The problem is that I’ve been trying to see what’s wrong with the following program, but I can’t see why it’s not working.
The compiler compiles it without any problem, but when I run it, it says exited with exitcode 2.
The problem is that the file exists.
What seems to be the problem?
Can anyone please help?

This is the code.

Delphi

Program num;

Var
f:Text;
b,g:String;
c:String[1];

Procedure thenum (a:String);
Begin
Assign(f,'textfileoffile.txt');
Reset(f);
a:='A';
while not eof(f) and (a<>' ') do
begin
Read (f,a);
End;
Writeln(a);
End;

Procedure sth ( j:String);
begin
Assign(f,'textfileoffile.txt');
Reset(f);
j:='A';
while not seekEoln and eof(f) do
begin
read(f,j);
end;
Writeln(j);
End;


begin
Assign(f,'textfileoffile.txt');
repeat
Reset(f);
until eof(f);
thenum (b);
read(f,c);
sth (g);
if eof(f)then
Close(f);
Readln;
End.

Posted 21-Jan-14 3:23am

Member 10538783

Updated 21-Jan-14 3:25am

CPallini

v2

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Answer 1 · 2014-01-21T03:30:00

Solution 1

Quote:
repeat
Reset(f);
until eof(f);

This sequence looks wrong to me.

Posted 21-Jan-14 3:30am

CPallini

Comments

Member 10538783 21-Jan-14 9:42am

Thanks for your help, but i tried to writ it in an another way but it still doesn't work.

CPallini 21-Jan-14 10:03am

How did you write it?

Member 10538783 21-Jan-14 10:12am

I wrote it like that, so as to open the file once, only in the main program,
there it is.
Program num;

Var
f:Text;
b,g:String;
c:String[1];

Procedure thenum (a:String);
Begin
Assign(f,'textfileoffile.txt');
Reset(f);
a:='A';
while not eof(f) and (a<>' ') do
begin
Read (f,a);
End;
Writeln(a);
End;

Procedure sth ( j:String);
begin
Assign(f,'textfileoffile.txt');
Reset(f);
j:='A';
while not seekEoln and eof(f) do
begin
read(f,j);
end;
Writeln(j);
End;

begin
Assign(f,'textfileoffile.txt');
repeat
Reset(f);
until eof(f);
thenum (b);
read(f,c);
sth (g);
if eof(f)then
Close(f);
Readln;
End.

Member 10538783 · Answer 2 · 2014-01-21T05:23:00

I wrote it like that, so as to open the file once, only in the main program,
there it is.
Program num;

Var
f:Text;
b,g:String;
c:String[1];

Procedure thenum (a:String);
Begin
Assign(f,'textfileoffile.txt');
Reset(f);
a:='A';
while not eof(f) and (a<>' ') do
begin
Read (f,a);
End;
Writeln(a);
End;

Procedure sth ( j:String);
begin
Assign(f,'textfileoffile.txt');
Reset(f);
j:='A';
while not seekEoln and eof(f) do
begin
read(f,j);
end;
Writeln(j);
End;

begin
Assign(f,'textfileoffile.txt');
repeat
Reset(f);
until eof(f);
thenum (b);
read(f,c);
sth (g);
if eof(f)then
Close(f);
Readln;
End.

Member 10538783 · Answer 3 · 2014-01-22T04:03:00

Solution 3

Thank you very much, the program now, works without any problem at all.

Posted 22-Jan-14 4:03am

Member 10538783

Comments

enhzflep 22-Jan-14 12:17pm

Rather than posting comments as Solutions, you should either
(a) hover over the post and hit the "Reply" button - do this to reply to comments
or
(b) Hit the "Have a Question or Comment?" button that follows the post - do this add a comment to Questions or Solutions.

For two reasons - the first is that is how it's done, the second reason is that otherwise the automated email informing someone of a reply to the post will not be sent. You should recieve notification of this comment in an email, as is the intention.

p.s - haven't coded in Pascal for over 20 years. What a fun trip down memory lane!

RaviRanjanKr 22-Jan-14 13:26pm

Always use "Have Question or comment" to give feedback instead of posting as separate answer.