Dateien anzeigen mit FindFirst - Erste Datei im Ordner fehlt

daywalker0086 · Beiträge: 243 Delphi 2005 Architect

Moderiert von raziel: Von diesem Thema abgetrennt.

das hab ich hinbekommen.

Hab da noch ein kleines anderes Problem,
lasse mir alle Dateien eines Ordners anzeigeen, aber er zeigt die erste Datei immer nich an, liegt
an meinem Code, aber ich weis nich warum:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

FindFirst(dir+'*.*',faAnyFile,tr);
    while FindNext(tr)=0 do
        begin
        if not (tr.Name='..') then
        begin
         if (tr.Attr and faDirectory > 0) then
         FindAllFiles(dir+tr.Name+'\',output,count) else
            begin
              inc(count);
              output.Add(dir+tr.Name);
            end;
        end;
    end;

Könnt ihr mir da nochmal helfen bitte

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

fvolk · Beiträge: 203 Win XP (Home & **Pro**) Delphi 2005 Pers

Das liegt daran, dass FindFirst auch schon einen Dateinamen zurückliefert, du diese aber erst an dem ersten Aufruf von FindNext (der sinnigerweise schon den zweiten Dateinamen liefert) verwendest. Du müsstest also nach dem Aufruf von FindFirst schonmal output.Add() machen.
Zusätzlich wird meiner Meinung nach der Ordner '.' vor der Rekursion nicht geprüft - das wiederum hängt mit der fehlenden Reaktion auf das FindFirst zusammen.

Außerdem liefert der (von dir kopierte?) Code nicht alle Dateien in einem Verzeichnis, sondern auch die in den entsprechenden Unterverzeichnissen.

Btw: Eigentlich gibt es hier im Forum eine "Neue Frage - neuer Thread"-Philosophie.

//Edit: letzter Kommentar hat sich somit erledigt

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jedermann ist überzeugt, dass er genug davon habe.
(René Descartes)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme