typisierte Datei mit freiem Offset einlesen

[messie]

Moin,

ich habe eine Frage zum Einlesen von Dateien: ich habe eine Datei mit einem unbekannten Header der Länge x und Daten eines records (3xdouble). Die Funktion Seek gibt mir aber nicht die Möglichkeit, den Offset frei zu wählen, sondern nur in Recordlängen.
Gibt es da andere Lösungen, oder muss ich das alles Byteweise sortieren?

Danke, Messie

[gammatester]

Zitat:

Zitat von messie

Moin,

ich habe eine Frage zum Einlesen von Dateien: ich habe eine Datei mit einem unbekannten Header der Länge x und Daten eines records (3xdouble). Die Funktion Seek gibt mir aber nicht die Möglichkeit, den Offset frei zu wählen, sondern nur in Recordlängen.
Gibt es da andere Lösungen, oder muss ich das alles Byteweise sortieren?

Danke, Messie

Was heißt Byteweise sortieren? Da keine einheitliche Struktur da ist, muß flexibel gelesen werden. Allerdings nicht mit file of byte oder ähnlich, sondern zB so:

Delphi-Quellcode:

reset(datei, 1);
seek(datei, offset);
blockread(datei, MyRecord, sizeof(MyRecord);

Gruß Gammatester

[Muetze1]

Oder gleich die alten Pascal Routinen mit ihren Spinnenweben so liegenlassen und TStream nutzen:

Delphi-Quellcode:

type
  TDoubleData = packed record
    Double1, Double2, Double3: double;
  end;
var
  lStream: TStream;
  lData: TDoubleData;
begin
  lStream := TFileStream.Create('deinFile.ext', fmOpenRead);
  try
    lStream.Position := x; // deine Position X
    lStream.ReadBuffer(lData, sizeof(lData));
  finally
    lStream.Free;
  end;
end;

[messie]

Danke, super Idee!