一段vb代码 翻译成delphi 求指导

Question

vbdelphi

Answer 1

function ByteLoad(N:String) :TBytes;
var
   FSize: Integer;
  F: TFileHandle;
beign                        
    try 
       F:=FileOpen( N);
       FSize =FileSize(F);                                                      
        SetLength(Result, (FSize - 1));                                                        
        ReadFile(F, Result);
        CloseFIle(F);                                                  
    excetion
    end:
end ;
 
帮你先翻译一半， 有些函数用法记不得了，大致就是这样。