Fehlermeldung bei AssignFile

[Sir Rufo]

Öffne bitte mal eine Eingabeaufforderung in dem Verzeichnis, wo die Anwendung liegt.
Dort führst du mal diesen Befehl aus:

Code:

dir /s >listing.txt

Die Datei

Code:

listing.txt

schieb dann mal hier hoch, dann sehen wir, wo die Datei steckt

Deine Formatierung ist sehr grauslich zu lesen, hier mal in leserlich

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt';
  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;

[Chemiker]

Hallo Kendro,

um die Richtigkeit Deines Programms zu überprüfen, oder den Fehler einzugrenzen würde ich Dir empfehlen ein OpenDialog auf Form zu ziehen und den FileName samt Path darüber zu bestimmen.

Bis bald Chemiker

[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

[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;

[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;

[alfold]

Warum er die nicht finden kann, Datei nennt sich 'dri.txt.txt'

Gruss alfold

[Aphton]

dri.txt.txt

[Sir Rufo]

Zitat von alfold:

Warum er die nicht finden kann, Datei nennt sich 'dri.txt.txt'

Gruss alfold

Darum sollte er ja auch die Fingerübung mit dem dir Befehl machen
(Obwohl er ja nicht wirklich das macht, was man ihm sagt)

[Klaus01]

.. das ist dann wohl wieder einer der Fehler die hätten vermieden werden können
wenn "hide known file extensions" nicht aktiv wäre.

Grüße
Klaus

[alfold]

Oder wen man weiss, was man macht

Gruss alfold