begin
    AssignFile(F, FName);
    Rewrite(F);
    CloseFile(F);
end;

解决方案 »

  1.   

    procedure TPurchaseFileFrm.Button5Click(Sender: TObject);
    var
      F: File of TRemoteRec;
    begin
      AssignFile(F,FName);
      Rewrite(F);
      CloseFile(F);
    end;我试过了,发生错误。此外,当我使用Reset(F)时,同样会出错?请大虾指点。
      

  2.   

    chechy(我爱洁洁)的方法應該沒有錯,你再試一試
      

  3.   

    AssignFile好像只能用于文本文件。
    试一下FileOpen,Assign,FileAssgin
    我及不太请了,查以下资料。
      

  4.   

    Assignfile(Personfile,文件名);
        ReWrite(PersonFile);
        try
            write(Personfile,Person);//写空内容
        finally
          Closefile(Personfile);
        end;
      

  5.   

    还是不行,是不是因为我是类型文件,所以只要Rewrite就出错。
      

  6.   

    类型里面不能有String变量,用ShortString试试看