Fehlermeldung bei AssignFile

[Sir Rufo]

Das mit dem "ich will keinen Pfad angeben" ist schon grenzwertig ... erklärt aber den Fehler soweit noch nicht.

Welchen Fehler bekommst du denn jetzt bei ShowMessage?

Delphi-Quellcode:

type
  MyRec = record
    name : string[100];
    email : string[40];
  end;
var
  MeineDatei :  File Of MyRec;
  tmpIOResult : integer;
begin
  if FileExists( 'myfile.dat' ) 
  then
    begin
      AssignFile( MeineDatei, 'myfile.dat' );
 {$I-}
      Reset( MeineDatei );
 {$I+}
      tmpIOResult := IOResult;
      if tmpIOResult <> 0 
      then
        ShowMessage( 'Problem beim Lesen von myfile.dat! Fehler: ' + IntToStr( tmpIOResult ) );
      CloseFile( MeineDatei );
    end;
end.