初学者~~~~如何删除文件中指定的行

Question

procedure TForm1.Button2Click(Sender: TObject);
begin
  Assignfile(f,'student.dat');
  Reset(f);
  num:=StrToInt(numEdit.Text);
  seek(f,num-1);
  ？？？？？？  //删除第num行
  CloseFile(f);
end;

Answer 1

如果是纯文本的文件，建议用TStringList的LoadFromFile加载文件，可以用Delete删除行，记得要SaveToFile如果是二进制文件，建议用TFileStream来处理文件

Answer 2

TStringListTFileStream具体使用参考DELPHI的帮助。

Answer 3

使用 xx:=TStringList.create;
xx.delete(i);