Binäre Datei in Array of Byte laden

[Klaus01]

.. so sollte es gehen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
begin
  try
    try
      FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
    except
      on E:Exception do
        showMessage(E.Message);
    end;
    setLength(bArray, FileStream.Size);
    FileStream.seek(0,soFromBeginning);
    FileStream.ReadBuffer(bArray[0], FileStream.Size);
  finally
    FileStream.Free;
  end;
end;

aber auch nur, wenn bArray irgendwo weiter verwendet wird.
Ansonsten wird es heraus optimiert.

Grüße
Klaus