El 21/02/2017 a las 22:12, James Richters escribió:
>
>
>
> Thanks for any advice on this
>
My first action would be to guarantee that the file is closed with a
try...finally.
AssignFile(BitFile,'BitSave.pax');
ReWrite(BitFile);
try
....
finally
CloseFile(BitFile);
end;
Second:
Do you have the file opened with an editor, or things like that, while
running the program?.
Third:
Check that all variables have valid values and that values are converted
to string properly to be printable.
Fourth:
Do you use somewhere {$I+} {$I-}? I also had some problems with that
with old programs.
Fourth:
What's the type BitFile?
BitFile: TextFile;
BitFile: File;
Maybe using writeln with non-textfile files may cause problems.
--
Saludos
Santiago A.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
