Fehlermeldung bei AssignFile

[DeddyH]

Delphi-Quellcode:

ComboBox1.Items.Clear;
i:= 0;        
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'dri.txt');
try
  Reset(fahrerliste);
  try
    while not EOF(fahrerliste) do begin
      ReadLn(fahrerliste, s);
      i:= i + 1;
    end;
  finally
    CloseFile(fahrerliste);
  end;
except
  on E: Exception do
    ShowMessage(E.Message);
end;

ExtractFilePath ist eine Funktion, d.h. Du solltest auch den Rückgabewert benutzen.