Einzelnen Beitrag anzeigen

dersunny

Registriert seit: 19. Jan 2011
17 Beiträge
 
#30

AW: Fehlermeldung bei AssignFile

  Alt 19. Jan 2011, 21:52
@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...

Geändert von dersunny (19. Jan 2011 um 22:02 Uhr)
  Mit Zitat antworten Zitat