Rapide en lecture/écriture à partir d'un fichier en delphi

Je suis le chargement d'un fichier dans un tableau sous forme binaire, ce qui semble prendre un certain temps
est-il un meilleur, plus rapide, efficace façon de le faire.
je suis l'aide d'une méthode similaire pour l'écriture dans le fichier.

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;
Veuillez reformater, c'est dur à lire

OriginalL'auteur Arthur | 2009-01-18