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;
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
