Fehlermeldung bei AssignFile

[dersunny]

@Chemiker:
Die Datei mit dem Editor zu öffnen geht. Sie ist vorhanden und beinhaltet Daten.

@Aphton:
Das ist so gewollt...zumindest vorerst. Die weiteren Schritte sollen sein, dass ich aus der Datei die Inhalte für die ComboBox auslese. Doch dafür muss ich erst mal die Datei öffnen, und um zu testen dass alles klappt, habe ich einfach ein paar Zeilen in der .txt geschrieben, die dann ja nach erfolgreichem Absolvieren der Schleife das i so beeinflussen sollten, dass da eine Zahl größer 0 bei raus kommt. Doch bis das soweit ist, ärgert mich das Programm nachwievor damit, dass es meint, die Datei sei nicht vorhanden.


Nach dem was ich so alles gesucht habe in den vergangenen Stunden sollte es eigentlich klappen, so wie die letzte Zeile Code geschrieben ist.

[Aphton]

führ folgendes aus

Delphi-Quellcode:

if FileExists( <hier dateiname so wie du ihn bei assignfile benützt> ) then
  ShowMessage('Existiert');

und gib bescheid, ob du die Nachricht erhältst!

[dersunny]

Nein, da kommt nichts.
Aber die Datei ist wirklich vorhanden...

[Aphton]

Zitat von dersunny:

Nein, da kommt nichts.
Aber die Datei ist wirklich vorhanden...

Ja dann verwendest du den falschen Dateinamen (irgendwo ist bestimmt ein Fehler) was dazu führt, dass du es nicht laden kannst!

Zeig mal her, wie das Programm es verwendet - am besten ca so ~
showmessage(<hier dateiname so wie du ihn bei assignfile benützt> );

[dersunny]

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + '\data\dri\dri.txt')

Delphi-Quellcode:

if FileExists(ExtractFilePath(Application.ExeName) + '\data\dri\dri.txt') then
  ShowMessage('Existiert');

Die Datei namens "dri.txt" liegt im Ordner C:\Users\ich\Desktop\abrechnung\data\dri
Und im Ordner C:\Users\ich\Desktop\abrechnung liegt die .exe die ich benutze.

[Aphton]

Ok, da haben wirs =D
mach '\' bei '\Data...' weg!

->

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt') Edit: Begründung:
ExtractFilepath( 'C:\Testordner\Testdatei.Testendung' ) liefert 'C:\Testordner\' zurück!

[dersunny]

So gern ich es sagen würde, aber das war leider nicht die Lösung. Ich habe seit Ewigkeiten alles ausprobiert, sowohl mit als auch ohne Backslash. (Ich glaube das hab ich zwischendurch mal irgendwo erwähnt?)

Edit:
Vielleicht hilft es, wenn ich nochmal genau zeige, wo der Fehler kommt?

Bei diesem Code-Schnipsel wird mir die unterste Zeile als Fehlerquelle angezeigt:

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');
                try
                        Reset(fahrerliste);

[Chemiker]

Hallo dersunny,

es ging mir nicht darum das Du die Datei im Editor öffnest, sonder um die richtige Schreibweise des Path.

Bis bald Chemiker