Hallo Mitchl,
ich denke du solltest etwas mehr Struktur in dein Programm bringen. Ich würde die ersten 6 Byte der Tabelle in einen Record einlesen. Danach kennst du die HeaderSize und kannst den Rest nachlesen. Nur auf die einzelnen Datensätze würde ich über direkte Positionierung zugreifen:
Delphi-Quellcode:
// ungetester Code ...
type
PHeaderInfo = ^THeaderInfo;
THeaderInfo = packed record
RecordSize: SmallInt;
HeaderSize: SmallInt;
FileType: Byte;
MaxTableSize: Byte;
end;
PTableHeader = ^TTableHeader;
TTableHeader = packed record
NumRecords: LongInt;
NextBlock: Word;
// ...
end;
var
hi: THeaderInfo;
th: PTableHeader;
fs: TFileStream;
begin
fs := TFileStream.Create(fileName, fmOpenRead);
fs.Read(hi, SizeOf(hi));
GetMem(th, hi.HeaderSize);
fs.Read(th.NumRecords, hi.HeaderSize);
// ...
FreeMem(th, hi.HeaderSize);
fs.Free;
end;
Auf diese Weise kannst du auf die Header-Informationen zugreifen, als ob es normale Variablen wären. Wenn du noch einen dynamischen Puffer für die Datensätze spendierst und die Leseroutine etwas umschreibst, dann bist du schon auf dem Weg ins gelobte Land:
Delphi-Quellcode:
function GetRecord(s: TStream; index: Integer; var buffer: TByteDynArray): Boolean;
var
offset: Cardinal;
begin
offset := SizeOf(hi) + hi.HeaderSize + index * hi.RecordSize;
if offset + Length(buffer) > s.Size then
Result := false else
begin
s.Position := offset;
s.Read(buffer[0], Length(buffer));
Result := true;
end;
end;
var
buffer: TByteDynArray;
begin
SetLength(buffer, hi.RecordSize);
if GetRecord(fs, 0, buffer) then
ShowMessage('der erste Record wurde gelesen - wie gefällt dir das?')
end;
Grüße vom marabu