Fehlermeldung bei AssignFile

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

[Aphton]

Hänge mal das Projekt an. Ich werds mir (noch) genauer anschauen...

Edit:
Übrigens, bevor du das jetzt machst, probier noch das hier, um mehr Informationen über das Problem zu erfahren:

Delphi-Quellcode:

  {$i-}
  AssignFile(...);
  Reset(...);
  {$i+}
  ShowMessage( SysErrorMessage( IOREsult ) );

EDIT2:
Was mir noch so einfällt - kann es sein, dass die Datei exklusiv geöffnet ist (also so, dass kein anderes Programm es öffnen kann)?

[dersunny]

@Aphton:
Meldung kommt: Das System kann die angegebene Datei nicht finden.
Ich hoffe das ist das richtige im Anhang. Die Datei, die ich eigentlich hochladen wollte, durfte ich nicht hochladen.
Wenn Du dir das ansiehst, ignoriere bitte die vielen Buttons, Labels etc, die noch keine Funktion haben. Ich wollte wie gesagt erst das Gerüst bauen und dann nach und nach die Daten einfügen.

Die Grundfunktion, die am Ende herauskommen soll ist, dass Fahrer eingestellt, geändert oder editiert werden sollen. Das selbe soll auch für Fahrzeuge passieren, und den Rest, der da drin noch so zu sehen ist.

@Klaus01:
Als Message kommt da genau der Ordner, den ich hier immer angebe. Um Fehler diesbezüglich zu vermeiden, hatte ich extra den Path aus dem Explorer per copy&paste hier eingefügt.


Edit nach Lösung des Problems:
Datei entfernt.

[Klaus01]

Guten Abend,

kannst Du bitte das Ergebnis von

showMessage(ExtractFilePath(ParamStr(0)); hier einstellen.

Sollte der Desktop des users nicht unter Documents and Settings\<username>\desktop liegen?

Warum packst Du die Datei nicht unter Documents and Settings\<username>\Application Data\<DeinExename>


Grüße
Klaus