.. 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