Question

如何把一个二进制文件读入byte数组中

Answer 1

procedure TForm1.Button5Click(Sender: TObject);var MyFile : TFileStream; Buf : Byte; Buffer:array of byte; i:integer;begin MyFile := TFileStream.Create('e:\11.sav',fmOpenRead); SetLength(Buffer,MyFile.Size-1); try MyFile.Position := 0; MyFile.Seek(0,0); for i:=0 to MyFile.Size-1 do begin MyFile.Read(Buf,sizeof(buf)); Buffer[i]:=Buf; end; finally MyFile.Free; end;end; 查看原帖>>

采纳哦