Well, I finnaly found out where the place the error originated; it all stemmed from a typo in a constant.
Instead of the maximum array size being set to 200, it was set to 20; this explains the error on the 21st iteration.
The moral of the story is...if all logic is defied, it must be a typo.
Well, I never could figure out what was wrong, so I changed the structure of my program to use a record file.
To anyone still interested in figuring out why this ever happened:
The file was generated by the program, so there shouldn't have been any problem with reading extra stuff. I made...
I'd like to avoid using a file besides text type for my own reasons. The text file being read is asurdily correct in it's format, the fields being in groups of 14. There in to "Invalid numeric format" error.
I have tried finding the EntryCount in another procedure, the using a for...
Programming in Turbo Pascal 7, I'm using the following code:
(*********************************************************)
procedure InputData ( var DataFile : text; var Collection : MagicCardCollection; var EntryCount : integer);
Begin
EntryCount:=0;
reset (DataFile);
while (not...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.