1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

type
  TRecordFile = class
  private
    FHeaderSize: integer;
    FRecordSize: integer;
    FStream: TFileStream;
  public
    constructor Create(const _Filename: string; _HeaderSize: integer; _RecordSize: integer);
    destructor Destroy; override;
    procedure WriteHeader(var _Header);
    procedure ReadHeader(var _Header);
    procedure Write(_Idx: integer; var _Record);
    procedure Read(_Idx: integer; var _Record);
  end;

constructor TRecordFile.Create(const _Filename: string; _HeaderSize: integer; _RecordSize: integer);
begin
  inherited Create;
  FHeaderSize := _HeaderSize;
  FRecordSize := _RecordSize;
  FStream := TFileStream.Create(Filename);
end;

destructor TRecordFile.Destroy; 
begin 
  FreeAndNil(FStream);
  inherited Destroy; 
end;

procedure TRecordFile.Write(_Idx: integer; var _Record);
begin
  FStream.Seek(FHeaderSize + _Idx * FRecordSize);
  FStream.Write(_Record, FRecordSize);
end;

procedure TRecordFile.Read(_Idx: integer; var _Record);
begin
  FStream.Seek(FHeaderSize + _Idx * FRecordSize);
  FStream.Read(_Record, FRecordSize);
end;

procedure TRecordFile.WriteHeader(var _Header);
begin
  FStream.Seek(0);
  FStream.Write(_Header, FHeaderSize);
end;

procedure TRecordFile.ReadHeader(var _Header);
begin
  FStream.Seek(0);
  FStream.Read(_Header, FHeaderSize);
end;

// Benutzung:
var
  st: TRecordFile;
  Header: record
            Version: integer;
          end;
  Rec: record
         // Dein Datenrecord hier
       end;
begin
  st := TRecordFile.Create('c:\test.dat', SizeOf(Header), SizeOf(Rec));
  try
    st.ReadHeader(Header);
    if Header.Version <> ErwarteteVersion then begin
      KonvertierenUndNeuOeffnen(st);
    end;
    // ersten Record lesen ...
    st.Read(0, Rec);
    // usw.
  finally
    FreeAndNil(st);
  end;					

1:
2:
3:
4:
5:
6:

Type TVariable = record
 Variable1 : ShortString;
 Variable2 : Integer;
 Variable3 : Boolean;
 {...}
end;					

1:
2:
3:

var V  : TVariable;
   F1 : File of TVariable
{...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  TIndexRec = Record
    case Daten: TIdx_Data of
     Header:  (HFlag : Boolean;    // negativ wenn Datenbank nicht ordnungsgemäß geschlossen
               HVer  : String[5]; // Version
               HBID  : Cardinal;   // Benutzernr. = Empfängernr
               HCrypt: String[25]);   // Passwort

     Calender:(DTag: TDate;       // Datum
               DVfy: Boolean;     // DS abgeglichen??
               DFt : Byte;        // Feiertag?, wenn 0 = kein oder unbekannt sonst Nr.

               DInx: Byte;        // Dienstschicht, Freizeit, Unterricht, sonstiges )
               DBeg: TTime;       
               DEnd: TTime;      

               L_Azv: Word);       // Link Azv
  end;