我只有30分了，全给了问这个问题

Question

只要rewrite一下，就全清空了。
rewrite(f);

Answer 1

var
        f:file of my;
        b:my;
        r,
        ofs:integer;
begin
        fillchar(b,Sizeof(b),0);
        assignfile(f,filename);
        rewrite(f);
        ofs:=0;
        while not eof(f) do
        begin
                seek(f,ofs);
                inc(ofs);//偏移值增加多少忘了，好像是一，如果不是则用（inc(ofs,sizeof(b))）
                blockwrite(f,b,sizeof(b),r);
        end;
        closefile(f);
end;

Answer 2

你的清空是什么意思？Integer置零？String置空？

Answer 3

reset对其进行操作，清空时，在程序里写上就可以