如何删除文本文件中的一条记录！（再线等！）

Question

如何删除文本文件中的一条记录！

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.LoadFromFile('c:\dd.txt');
memo2.Lines[5]:='';//让第六行为空,等于删掉了
memo2.Lines.SaveToFile('c:\dd.txt');
end;

Answer 2

改进版
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
memo2.Lines.LoadFromFile('c:\dd.txt');
memo2.Lines[5]:='';//让第六行为空,等于删掉了
for i:=5 to memo2.lines.count-2 do
memo2.lines[i]:=memo2.lines[i+1];
memo2.lines[memo.lines.count-1]:='';
memo2.Lines.SaveToFile('c:\dd.txt');
end;

Answer 3

var
  List: TStringList;
begin
  List := TStringList.Creat;
  List.LoadFromFile('a.txt');
  List.delete(你想删的行号)；
  List.free;
end;