[fpc-pascal] Seek with text file

James Richters james at productionautomation.net
Tue Apr 3 13:58:53 CEST 2018


Thank you for the advice and for the example. I don't know what is considered a large file.. these files can be maybe about 1000 lines long, most will be less, would this solution be suitable for files of this size?

Is Tstringlist something like an array of strings?


-----Original Message-----
From: fpc-pascal [mailto:fpc-pascal-bounces at lists.freepascal.org] On Behalf Of Rik van Kekem
Sent: Tuesday, April 03, 2018 7:20 AM
To: fpc-pascal at lists.freepascal.org
Subject: Re: [fpc-pascal] Seek with text file

Op 03-04-2018 13:04 schreef Anthony Walter:
> If the file is not to big you could simply write:
> 
> procedure ChangeLastLine(const FileName, NewLine: string); var
>    S: TStrings;
> begin
>    S := TStringList.Create;
>    try
>      S.LoadFromFile(FileName);
>      if S.Count > 0 then
>        S[S.Count - 1] := NewLine
>      else
>        S.Add(NewLine);
>    finally
>      S.Free;
>    end;
> end;
Don't forget the S.SaveToFile(FileName) just above the finally-line otherwise nothing is saved back to the file :D

Rik

_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


More information about the fpc-pascal mailing list