Forum: Object-Pascal / Delphi-Language
by DeddyH,
19. Jan 2011
In Application.ExeName steht der Pfad zur eigenen Exe, nicht der zum Desktop, nur um das noch einmal klarzustellen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
19. Jan 2011
Unterordner des eigegen Programms bekäme man in der Art
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'Unterordner\dri.txt');
Forum: Object-Pascal / Delphi-Language
by DeddyH,
19. Jan 2011
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;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
19. Jan 2011
Zeig doch mal den aktuellen Code.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
19. Jan 2011
Du hast da 2 mal CloseFile drin. Zum Pfad: schau Dir einmal SHGetFolder an, damit kannst Du bestimmte Ordnerpfade ermitteln. Und Du solltest einen weiteren try-except-Block um das Reset - CloseFile setzen, dann kannst Du Fehler abfangen.