Alle dateien von C:\ in ein Memo

[Pseudemys Nelsoni]

Moin Christian,

also hat man in Unterordnern sozusagen immer versteckte(?) Ordner die auf den übergeordneten verweisen, richtig? Wenn das so ist, müsste das ganze dann nicht in einer Endlosschleife enden? Ich meine die Ordner würden ja immer wieder auf den anderen zeigen?

@Thema: Ich habe meinen Code nun so:

Delphi-Quellcode:

procedure GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;
begin
  p := path + '*.*';
  if FindFirst(p, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) = faDirectory then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          GetFiles(Path + SearchRec.Name + '\');
      end
      else Form1.Memo1.Lines.Add(SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

Ist daran immernoch was falsch? Weil komischer weise, bekomme ich am Ende der Suche:

Zitat:

desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2

Das kann nicht stimmen