在delphi中从文件快速读/写

发布时间：2020-12-15 10:13:16 所属栏目：大数据来源：网络整理

导读：我正在以二进制形式将文件加载到数组中,这似乎需要一段时间有没有更好更快更有效的方法来做到这一点. 我正在使用类似的方法写回文件. procedure openfile(fname:string);var myfile: file; filesizevalue,i:integer;begin assignfile(myfile,fname); filesi

我正在以二进制形式将文件加载到数组中,这似乎需要一段时间
有没有更好更快更有效的方法来做到这一点.
我正在使用类似的方法写回文件.

procedure openfile(fname:string);
var
    myfile: file;
    filesizevalue,i:integer;
begin
  assignfile(myfile,fname);
  filesizevalue:=GetFileSize(fname); //my method
  SetLength(dataarray,filesizevalue);
  i:=0;
  Reset(myFile,1);
  while not Eof(myFile) do
    begin
      BlockRead(myfile,dataarray[i],1);
      i:=i+1;
    end;
  CloseFile(myfile);
end;

解决方法

您通常不应该逐字节读取文件.使用具有较大值的BlockRead(通常最好使用512或1024)并使用其返回值来查找读取的字节数.

如果大小不是太大(并且你使用SetLength似乎支持这个),你也可以使用一次BlockRead调用一次读取整个文件.因此,修改您的方法,这将是：

AssignFile(myfile,fname);
filesizevalue := GetFileSize(fname);
Reset(myFile,1);
SetLength(dataarray,filesizevalue);
BlockRead(myFile,dataarray[0],filesizevalue);
CloseFile(myfile);

也许您也可以将过程更改为名为OpenAndReadFile的布尔函数,如果无法打开或读取该文件,则返回false.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!