Smallint und Byte in einer Datei speichern???

[himitsu]

Mit der FileOfByte ginge es z.B. so.

Und da es ja ein bissl schwer ist ein SmallInt in ein Byte zu quetschen muß es halt in Byte's zerlegt und nachher wieder zusammengesetzt werden. (ich hoff ich hab jetzt beim Zusammensetzen keien Fehler gemacht)

Und da du noch nicht gesagt hast, wie die "paar hundert kb Byte-Variablen" definiert sind, hab ich erstmal ein kleineres Array genommen.

Und wenn sich die Anzahl der "paar hundert kb Byte-Variablen" auch noch ändern kann (also nicht immer gleich ist), dann muß eh noch 'ne Kleinigkeit angepasst werden.

Delphi-Quellcode:

Var BA[0..800000]: Array of Byte;
  SI1, SI2: SmallInt;

Var Datei: File of Byte;
  I: Integer;
  B1, B2: Byte;

Begin
  {speichern}
  AssignFile(Datei, 'C:\datei.dat');
  ReWrite(Datei);
  Write(Datei, Lo(SI1), Hi(SI1));
  Write(Datei, Lo(SI1), Hi(SI1));
  For I := 0 to 800000 do Write(Datei, BA[I]);
  CloseFile(Datei);

  {lesen}
  AssignFile(Datei, 'C:\datei.dat');
  Reset(Datei);
  Read(Datei, B1, B2);  SI1 := SmallInt(B1 or (B2 shl 8));
  Read(Datei, B1, B2);  SI1 := SmallInt(B1 or (B2 shl 8));
  For I := 0 to 800000 do Read(Datei, B[I]);
  CloseFile(datei);
End;

[scp]

Evtl. ist hier das problem:

Delphi-Quellcode:

Stream.Read(a,16);

Wieso 16? Ein integer hat doch eine Grösse von 4 Byte (zumindest aktuell), ein Smallint hat 2.

Am einfachsten wäre es so, wie oben schon mal erwähnt:

Delphi-Quellcode:

Stream.Read(a,SizeOf(a));

und natürlich:

Delphi-Quellcode:

Stream.Write(a,SizeOf(a));

[himitsu]

Deshalb ist es immer gut (zumindestens für den Dateizugriff) auf die sogenannten Generische-Typen komplett zu verzichten.

Wie wir ja vor kurzem das Problem hatten, ist bei diesen "sich verendernten" Typen schnell ein Problem da.
Also dort konnte z.B. eine mit D1 erstellte Datei nicht mehr mit D7 gelesen werden.