在delphi中从文件快速读/写

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

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.

原文地址：https://www.jb51.cc/delphi/103227.html