Naja, beim Header klappt's ja ganz gut
Delphi-Quellcode:
TDBHeader = array[0..31] of Byte;
.
.
.
TForm1 = class(TForm)
.
.
private
inputFS: TFileStream;
DBHeader: TDBHeader;
.
.
end;
.
.
.
.
procedure TForm1.GetHeader(fs: TFileStream);
begin
fs.Read(DBHeader, SizeOf(DBHeader));
end;
Der einzige Unterschied den ich sehe ist, dass ihr hier ein statisches Array habe.