如何删除文本文件中的某一行!在线等待,急!

Question

如题!

Answer 1

var
  SL: TStringlist;
begin
  SL := TStringlist.Create;
  try
    SL.Loadfromfile('D:\aaa.txt'); 
    Sl.Delete(2);//删除第三行
    Sl.SaveToFile('D:\aaa.txt');
  finally
    SL.Free;
  end;
end;

Answer 2

找呀，如删除等于“ABCDE”的那行var
  SL: TStringlist;
  lp: integer;
begin
  SL := TStringlist.Create;
  try
    SL.Loadfromfile('D:\aaa.txt'); 
    for lp := 0 to SL.count - 1 do
    begin
      if uppercase(trim(sl[lp])) = 'ABCDE' then
      begin
        Sl.Delete(lp);
        break;
      end;
    end;
    Sl.SaveToFile('D:\aaa.txt');
  finally
    SL.Free;
  end;
end;