如何打开一个文本文件(若不存在则先创建），然后往文本文件中写入一行行文本？

可用 TStringList, ex:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    //sl.LoadFromFile('c:\test.txt'); // 載入 c:\test.txt 檔
    sl.add('Insert line xxx'); // 新增一行
    sl.Delete(0); // 刪除第 1 行
    sl.Strings[1] := '更改第 2 行的內容';
    sl.SaveToFile('c:\test.txt');
  finally
    sl.Free;
  end;
end;

更多的用法, 參考 help --- --<-<-<@

我的文本文件有可能有几十万行数据，每到一笔数据后我都会打开然后关闭。 不知用TStringList效率如何？ 我想像用TFileStream效率会不会高一点？

用 Stream 的方式可能會比較好 不過, 姑且不論這個 每一行就開啟/關閉檔案一次, 這不是很奇怪嗎？ --- --<-<-<@

========================================== 我是要做如下应用： 如果网络连通，则将该文本发到服务器上(socket), 否则写到本地文本文件(txt file) 。 当侦测到网络连通时再一行行发送到服务器，同时将该txt file的内容清空。 hagar兄有无较好的方法？