Fehlermeldung bei AssignFile

[dersunny]

Bitte nicht hauen, aber blanco (nach dem Entfernen allen Blödsinns durch Ausprobieren) sieht der entsprechende Bereich jetzt so aus. Wenn ihr mir nur sagt, wo und wie ich jetzt den relativen Dateipfad eingebe, wäre ich glücklich.
Aus der Delphi-Hilfe und diversen Foren werde ich nicht schlau...

Delphi-Quellcode:

ComboBox1.Items.Clear;
        i:= 0;
        ExtractFilePath(Application.ExeName);
        AssignFile(fahrerliste, 'dri.txt');
        Reset(fahrerliste);
                try
                while not EOF(fahrerliste) do begin
                ReadLn(fahrerliste, s);
                i:= i + 1;
                end;
                finally
                CloseFile(fahrerliste);

        end;

[DeddyH]

Delphi-Quellcode:

ComboBox1.Items.Clear;
i:= 0;        
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'dri.txt');
try
  Reset(fahrerliste);
  try
    while not EOF(fahrerliste) do begin
      ReadLn(fahrerliste, s);
      i:= i + 1;
    end;
  finally
    CloseFile(fahrerliste);
  end;
except
  on E: Exception do
    ShowMessage(E.Message);
end;

ExtractFilePath ist eine Funktion, d.h. Du solltest auch den Rückgabewert benutzen.

[dersunny]

Bis auf den unteren Teil hatte ich das auch schon ausprobiert.
Mein Problem hier ist jetzt halt, dass ich nicht weiß, wo ich den Dateipfad hinstecken muss.
Und alles in einen Ordner packen wäre ungünstig, weil dann noch viel viel mehr Dateien in ähnlicher Weise eingebunden werden sollen...

[DeddyH]

Unterordner des eigegen Programms bekäme man in der Art
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'Unterordner\dri.txt');

[dersunny]

Genau das hatte ich ja schon durchprobiert, in jeder erdenklichen Weise. Die Fehlermeldung ist immer dieselbe "Datei nicht gefunden."

Vielleicht übersehe ich ja etwas:
Die exe steckt in C:\Users\ich\Desktop\abrechnung
Die txt, auf die zugegriffen werden soll, in C:\Users\ich\Desktop\abrechnung\data\dri
Dementsprechend sieht der Befehl analog zu Deiner Beschreibung so aus:
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');
Ich habe auch mit dem Back-Slash rumprobiert. Sowohl mit als auch ohne vor dem "data" kommt das selbe Ergebnis...

[Chemiker]

Hallo dersunny,

welches BS verwendest Du?

Bis bald Chemiker

[dersunny]

Windows XP, SP2