Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
Wenn schon, dann
sFileName:= ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');
Übrigens gehts hier eig. nicht um die Codequalität. Das Problem wird sich damit nicht ändern.
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
Werds mir gleich ansehen aber wie schon vom SYSTEM beschrieben - die Datei kann einfach nicht gefunden werden. Irgendetwas stimmt da nicht.
MfG *schmöker
Edit:
Also ich habe nichts Auffäliges (mal abgesehen davon, dass es ziemlich grauenhaft zusammengerückt ist :P) gefunden. Es liegt - so wie es aussieht - nicht am Code (ich habe ne kleine Demo geschrieben und es hat - wie erwartet -...
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
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:
{$i-}
AssignFile(...);
Reset(...);
{$i+}
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
Ok, da haben wirs =D
mach '\' bei '\Data...' weg!
->
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt')
Edit: Begründung:
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
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> );
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
führ folgendes aus
if FileExists( <hier dateiname so wie du ihn bei assignfile benützt> ) then
ShowMessage('Existiert');
und gib bescheid, ob du die Nachricht erhältst!
Forum: Object-Pascal / Delphi-Language
by Aphton,
19. Jan 2011
Nur für den Fall, dass du nicht nachrecherchiert hast:
- Reset öffnet die EXISTIERENDE Datei und setzt den Filepointer auf den Anfang (0)
- Rewrite ERSTELLT eine NICHT existieren bzw. überschreibt eine exitierende Datei UND setzt den Filepointer auf 0
- Append öffnet wie Reset die Datei, die existiert (existieren muss!, sonst Fehlermeldung!), und setzt den Filepointer aufs Ende
Ich seh bei...