delphi 对TXT 文件的操作。

Question

delphi 怎么在.txt文件的前面插入数据。
比如一个txt 文件中只有一行有数据：123123，怎么把‘456456’这一行数据插到‘123123’的前面（即上一行）。

Answer 1

用Tstringlist加载已有的文件，然后插入需要内容，然后再保存

Answer 2

begin
  with TStringList.Create do
  begin
      LoadFromFile(文件名);
      strings[0]:='456456' strings[0];
SaveToFile(文件名);
Free;
end;end;

Answer 3

var
 List:TStringList;
begin
  try
    List:=TStringList.Create;
    List.LoadFile('');  //文件名
    List.Insert(Index,'');   //位置，字段值
  finally
    List.Free;
  end;
end;

Answer 4

#2改为：strings[0]:='456456'+ strings[0];

Answer 5

(2楼) strings[0]:='456456' strings[0];
  这个不是会把原来的'123123'覆盖掉？我想要的是插入以后第一行是'456456',第二行是'123123'。有什么方法解决呢？