关于写文本文件的问题：如何使当前写进去的内容永远在第一行？

Question

比如我定期向文本文件写当前的系统时间，要使当前时间永远在该文件的第一行，该如何实现？

Answer 1

好象对TextFile只支持Append操作，这样试一下：
procedure TForm1.Timer1Timer(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('d:\a.txt');
  sl.Insert(0, DateTimeToStr(Now()));
  sl.SaveToFile('d:\a.txt');
  sl.Free;
end;

Answer 2

可以先将文件读出来，再关闭,删除，再新建，写完后再append

Answer 3

移动文件指针
procedure Seek(var F; N: Longint);

Answer 4

nG的文本文件load都要好久了，不具有可操作行。

Answer 5

前面我也想过weizi2000(秋风啊) 的做法，但文件一大就不行了。

Answer 6

seek(文件，第一条数据指针)
写

Answer 7

hsmserver(小霍) ：这样会把第一行给覆盖了吧？