Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-pascal / 2006-03

Error runtime 102

3 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Janie Gan

Hi,

I've been working on a program and each time i run it, it comes up wiht an error runtime 102. I know it might have something to do with Assign, Amend etc functions but can't figure out exactly where i went wrong. Here's an example script.

Begin
  Assign(oldd,'DDNAMEold.txt');
  reset(oldd);
  REPEAT read (oldd,ystart,yddstart,P);
  UNTIL eof(oldd);
End

I've got this program from another person who's been working on this before me. I'm a complete beginner and has been spending a week learning how to use Pascal. Would appreciate it if someone can point out where I've gone wrong and also how to fix it!

Thank you!

Janie

Reply by email

Michael Van Canneyt
to Janie Gan
Janie Gan wrote 12 lines
Hi, I've been working on a program and each time i run it, it comes up wiht an error runtime 102. I know it might have something to do with Assign, Amend etc functions but can't figure out exactly where i went wrong. Here's an example script. Begin Assign(oldd,'DDNAMEold.txt'); reset(oldd); REPEAT read (oldd,ystart,yddstart,P); UNTIL eof(oldd);

Try this:

  While not eof(oldd) do
    readln(oldd,ystart,yddstart,P);

Otherwise the program will not jump to the next line.

Also, you should check the variables: you can't read separate strings like this, only numbers.

Michael.

Reply by email

Alain Michaud
to Janie Gan: I've been working on a program and each time i run it, it comes up wiht an error runtime…

Hi,

if you have something like:

procedure mygoodprocedure
var
oldd : text
begin

then I would sugest that you put "text" line above:

unit myunit
...
var
oldd : text
...

procedure mygoodprocedure
var
...
begin

The file should be "global" , not in a procedure

goog luck

Alain

Janie Gan wrote 27 lines
Hi, I've been working on a program and each time i run it, it comes up wiht an error runtime 102. I know it might have something to do with Assign, Amend etc functions but can't figure out exactly where i went wrong. Here's an example script. Begin Assign(oldd,'DDNAMEold.txt'); reset(oldd); REPEAT read (oldd,ystart,yddstart,P); UNTIL eof(oldd); End I've got this program from another person who's been working on this before me. I'm a complete beginner and has been spending a week learning how to use Pascal. Would appreciate it if someone can point out where I've gone wrong and also how to fix it! Thank you! Janie _______________________________________________ fpc-pascal maillist - http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply by email