Type
  Trecord=Record
    Sname:string[20];
    Ssex:0..1;
    Saddr:String[50];
  end;
  ……………
  Tf1=file of Trecord;
  …………
Var
  file1:Tf1;
不知道各位大虾明白本菜鸟的意思的了没有?
如何删除file1中的一条记录?