谁能帮我在下面例句里做注释?
var
f:file;
size:integer;
buffer:pchar;
begin
assignfile(f,'test,txt');
reset(f,1); //reset是什么意思?
Try //Try是什么意思?
size:=filesize(f);
getmem(butter,size);
Try
blockread(f,buffer^,size); //blockread是什么意思?
processfile(buffer,size); //processfile是什么意思?
finally //finally是什么意思?
freemem(butter);
end;
finally
closefile(f);
end;
var
f:file;
size:integer;
buffer:pchar;
begin
assignfile(f,'test,txt');
reset(f,1); //reset是什么意思?
Try //Try是什么意思?
size:=filesize(f);
getmem(butter,size);
Try
blockread(f,buffer^,size); //blockread是什么意思?
processfile(buffer,size); //processfile是什么意思?
finally //finally是什么意思?
freemem(butter);
end;
finally
closefile(f);
end;
f:file;
size:integer;
buffer:pchar;
begin
assignfile(f,'test,txt');
reset(f,1); //只读方式打开?
Try //Try...finally end 保证能够释放对象。
size:=filesize(f);
getmem(butter,size);
Try
blockread(f,buffer^,size); //块操作。
processfile(buffer,size); //processfile是什么意思?
finally //Try...finally end 保证能够释放对象。
freemem(butter);
end;
finally
closefile(f);
end;
blockread读指针f到buffer指针,大小为sizeprocessfile应该是释放一些资源,不至于别的软件不能操作这个文件