现有一TXT文件,欲将第一行和最后一行删除。望各位英雄赐教~

Question

可以这样写：
var
  s : TStringList;
begin
  s := TStringList.Create;
  s.LoadFromFile ('mytxt.txt';
  s.Delete (0);
  s.Delete (s.count - 1);
  s.SaveToFile ('mytxt.txt');
  s.Free ();
end;

Answer 1

用stringlist可以实现这个功能，当然也可以利用memo或者richedit等控件在后台实现，例子如下：memo1.lines.loadfromfile('mytxt.txt');
memo1.lines.delete(memo1.lines.count - 1);
memo1.lines.delete(0);
memo1.lines.savetofile('mytxt.txt');

Answer 2

begin
Strinlist.create;
stringlist.loadfromfile('file.txt');
stringlist.delete(s.count);
stringlist.delete(1);
stringlist.free;
end;

Answer 3

的确，楼上的都可以，如果你要使用TextFile的方法也可以达到同样的效果，删除文本最难的就是删除不知道第几行的内容，那个才难

Answer 4

var 
  s : TStringList; 
begin 
  try
     s := TStringList.Create; 
     s.LoadFromFile ('mytxt.txt'; 
     s.Delete (0); 
     s.Delete (s.count - 1); 
     s.SaveToFile ('mytxt.txt'); 
  finally
     s.Free (); 
  end;
end;