[fpc-pascal] Seek with text file
Rik van Kekem
rik at graficalc.nl
Tue Apr 3 13:03:28 CEST 2018
Op 03-04-2018 12:03 schreef James Richters:
> So then I tried
> Var Myfile: file of String;
> Write(myfile,'New Line'+mydata);
And what do you think FILESIZE(myfile) holds?
You would only strip the last character from the file with - 1.
Besides... file of String isn't a thing because String is a pointer to a
area with characters and you can't have a file of string. You could do
file of String but in that case you don't have a normal text-file
How large are the files?
The easiest is to just load it into a TStringList and replace the last line.
If you have very very large files you would need to scan for the last
line. You could do that from beginning to end but it would be better to
do it from end to begin and stopping at the first CRLF. You could do
that by opening it as stream of Text and stepping backwards in the file.
But a TStringList is really the easiest for small to medium text-files.
More information about the fpc-pascal