Fehlermeldung bei AssignFile

[Sir Rufo]

Zitat von dersunny:

Ich muss mich wohl korrigieren, hatte vorhin mal aus Versehen XP als OS geschrieben...gemeint war eigentlich Vista...wie spätestens beim Lesen der folgenden Datei klar wird

Na denn

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt.txt'; // <-- so heißt die Datei :o)
  AssignFile( fahrerliste, sFileName );
  try
    Reset( fahrerliste );
    {$I+}
    ShowMessage( SysErrorMessage( IOREsult ) );
    try
      while not EOF( fahrerliste ) do
        begin
          ReadLn( fahrerliste, s );
          i := i + 1;
        end;
    finally
      CloseFile( fahrerliste );
    end;