Fehlermeldung bei AssignFile

[dersunny]

@Heiko und hoika:
Das war schon Mal ein Treffer in die richtige Richtung.
Ich habe das jetzt nach deinem HInweis mal wie folgt abgeändert:

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

Der Fehler ist jetzt nicht mehr bei Reset, sondern (kurioserweise) zu Beginn der Schleife. Wenn ich jedes Wort einzeln auf eine Zeile schreibe wird mir "NOT" markiert, ein anderes mal jedoch das EOF(fahrerliste).

Es sieht also so aus, als ob er jetzt die Datei öffnen kann, allerdings kommt nachwievor die Fehlermeldung, dass die Datei nicht gefunden werden kann.
Wie auch immer so etwas funktionieren soll...

EDIT:
als nächstes wird übrigens angezeigt, dass CloseFile(fahrerliste) das nächste Problem erzeugt...

Edit2:
Bei genauerm Durchlesen kommt jetzt der Fehler 104 und der Fehler 103. 104 hatte ich aber vorhin schonmal besiegt...

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

[Sir Rufo]

Zitat von dersunny:

@Sir Rufo:
Wo habe ich nicht das gemacht, was Du wolltest?

Lies es nochmal durch:

Zitat von 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

Du hast dir in dem Verzeichnis ausgeführt, wo die Daten-Datei liegt!

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

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;

[Aphton]

dri.txt.txt

[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

[dersunny]

An alle: DANKE!

Jetzt haben wir (zumindest ich) mir den Abend mit so einem blöden Fehler versaut...

@Sir Rufo:
Wo habe ich nicht das gemacht, was Du wolltest?