Hallo,
ich möchte bei folgender Prozedur überprüfen, ob eine Text-Datei existiert. Falls nicht, soll sie erstellt werden. Dann möchte ich diese Datei in eine Listbox laden.
Das mit dem erstellen funktioniert ohne Probleme, aber beim Laden kommt diese Fehlermeldung:
Code:
---------------------------
Debugger
Exception Notification
---------------------------
Project Project2.exe raised
exception class EFOpenError with message 'Cannot open file D: \Laden.txt'. Process stopped. Use Step or Run to continue.
Hier der Code:
Delphi-Quellcode:
if not FileExists(ExtractFilePath(application.ExeName)+'Laden.txt') then
FileCreate(ExtractFilePath(application.ExeName)+'Laden.txt');
ListBox1.Items.LoadFromFile(ExtractFilePath(application.ExeName)+'Laden.txt');
Vielen Dank fürt eure Hilfe!