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

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:

markieren

Delphi-Quellcode:

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

Gruß Gammatester

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

zusammenfalten · markieren

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;

Danke, super Idee!