处理Text文件问题？直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？

Question

直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？

Answer 1

用TSTRINGLIST实例变量读入TXT文件stringlist1.loadfromfile('t.txt');
stringlist1.delete(i); //删除指定行
stringlist1.savetofile('t.txt');

Answer 2

stringlist1.loadfromfile('t.txt'); 后stringlist1的最大行数怎么写，
也就是如何循环取stringlist1的值？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i:Integer;
  List: TStringList;
begin
  List := TStringList.Create;
  List.LoadFromFile('test.txt');
  for i := 0 to list.count-1 do
  begin
   list.Delete(0);
   end;
   list.SaveToFile('test1.txt');
  List.Free;
end;