Fehlermeldung bei AssignFile

[Sir Rufo]

oder es würde auch folgendes funktionieren

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt';
  AssignFile( fahrerliste, sFileName );
  try
    if FileExists( sFileName ) then
      Reset( fahrerliste )
    else
      ReWrite( fahrerliste );
    {$I+}
    ShowMessage( SysErrorMessage( IOREsult ) );
    try
      while not EOF( fahrerliste ) do
        begin
          ReadLn( fahrerliste, s );
          i := i + 1;
        end;
    finally
      CloseFile( fahrerliste );
    end;