如何删除文件内容。。。

Question

procedure TForm1.button1click(sender:TObject);
type
   Tfilelist=packed record
     a1:string[10];
     a2:integer;
   end;
var
   f:file or tfilelist;
   filelist:tfilelist;
begin
   assignfile(f,'test.bf');  //--读文件
   reset(f);
   while not eof(f) do
   begin  
     read(f,filelist);
     if filelist.a1='first' then  //--做比较
     begin
       //--删除这段内容？？？？？？ 各位怎么处理啊
     end; 
   end;
   closefile(f);
end;

Answer 1

删除文件内容，一般先将整个文件读入内存，然后对这段读入的内容进行操作，在回写至文件。此原理源于VC中的MFC。

Answer 2

手头没有资料，手写的，难免有错，自己参照看。
var
  tmplst :TStrings;
begin
  tmplst := TStringList.Create;
  tmplst.loadfromfile('XXX.df');
  for i:= tmplst.count -1 downto 0 do
  begin
     if 'xxx' = tmplst.strings[i] then tmplst.delete(i);
  end;
end;