Fehlermeldung bei AssignFile

[Sir Rufo]

Das habe ich jetzt gerade mal durch Delphi 2010 auf Win 7 x64 durchlaufen lassen:

Delphi-Quellcode:

type
  TMyRec = record
    name : string[ 100 ];
    Email : string[ 40 ];
  end;

procedure TForm1.FileSaveAs1Accept( Sender : TObject );
  var
    MyFile : file of TMyRec;
    MyRec : TMyRec;
    tmpIOResult : Integer;
  begin
    AssignFile( MyFile, FileSaveAs1.Dialog.FileName );

    {$I-}

    ReWrite( MyFile );
    tmpIOResult := IOResult;

    {$I+}

    if tmpIOResult <> 0 then
      ShowMessage( Format( 'IOResult %d', [ tmpIOResult ] ) )
    else
      try
        MyRec.name := 'Test';
        MyRec.Email := '[e-mail]';
        write( MyFile, MyRec );
      finally
        CloseFile( MyFile );
      end;
  end;

Ja und was war das Ergebnis? ..... wen wundert es ... alles super .... kein Murren kein Meckern einfach nur fertig.