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;