Type
TBArray = Array Of Byte;
Var
aBArray : TBArray;
Procedure File2ByteArray(Const aFile: String;Var ByteArray: TBArray);
Var MS: TFileStream;
Begin
MS := TFileStream.Create(aFile, fmOpenRead);
Try
SetLength(ByteArray, MS.size);
MS.ReadBuffer(ByteArray[0], Length(ByteArray));
Finally
MS.free;
End;
End;
{Utilisation}
Procedure Tfrm_Main.Button1Click(Sender: TObject);
Begin
File2ByteArray('UMain.pas', aBArray);
{et pour tester on affiche le résultat dans un TMemo}
Memo1.Lines.Text := PChar(aBArray);
End;