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:

function TfrmMain.TestDBVersionOkay: Boolean;

var rec:   TCacheRec;
    fs:    TFilestream;
    fnam:  String;
    Excpt: Boolean;

  function StreamException(Kind, Filename, ExceptionMessage: String): Boolean;
  begin
    MessageDlg('Streamingfehler "' + Kind + '" aufgetreten.' + #13#10
            + 'Dateiname: ' + Filename + #13#10
            + 'Exception: ' + ExceptionMessage, mtError, [mbOK], 0);
    result := True;
  end;

begin

  fs    := nil;
  Excpt := False;
  fNam  := 'D:\daten\records.bin';

  try
    fs := TFilestream.Create(fNam, fmOpenRead);
    try
      Fillchar(rec, Sizeof(rec), #0);
      fs.ReadBuffer(rec, Sizeof(rec));
    finally
      fs.Free;
    end;
  except
    on E: EFCreateError do Excpt := StreamException('EFCreateError', fNam, E.Message);
    on E: EFOpenError   do Excpt := StreamException('EFOpenError', fNam, E.Message);
    on E: EReadError    do Excpt := StreamException('EReadError', fNam, E.Message);
    on E: EWriteError   do Excpt := StreamException('EWriteError', fNam, E.Message);
    else                   Excpt := StreamException('(unknown)', fNam, '(nicht vorhanden)');
  end;

{ ..... }
end;					

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:

function TfrmMain.TestDBVersionOkay: Boolean;

var rec: TCacheRec;
    io: Integer;
    fc: file of TCacheRec;
    fnam: String;

begin
{$I-}
  fNam := 'D:\daten\records.bin';

  AssignFile(fc, fNam);
  Reset(fc);
  io := ioresult;

  if io = 0 then
  begin
    Read(fc, rec);
    io := ioresult;
  end;
  CloseFile(fc);
  io := io or ioresult;
{$I+}
  if io <> 0 then
    ShowMessage('I/O-Fehler Nummer' + IntToStr(io));
{ ..... }
end;					

1:

fs := TFilestream.Create(fNam, fmOpenRead or fmShareDenyNone);					

1:

ShowMessage(SysErrorMessage(GetLastError));