Delphi Nach Ordnern suchen

[BernddasBrot1]

Hallo alle zusammen!
Wir arbeiten in der schule mit delphi und ich wollte fragen, wie ich nur nach ordnern suchen kann (mittels TSearchRec).
Wenn ich angebe

if FindFirst('*' ,faDirectory, sr)=0 then
  begin
    repeat
      if sr.Name[1]='.' then continue;
      ChecklistBox1.Items.Add(' '+sr.Name);
      application.ProcessMessages;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;

erscheinen aus irgendeinem grund auch ganz normale Dateien (die also keine Ordner sind).
Ist wahrscheinlich eine doofe frage aber ich komm da echt nicht weiter.
Wär nett wenn jemand ne Antwort für mich hätte.

 

[Ste_Ett]

Hi,

du musst die Ordner speziell rausfiltern.
Der zweite Parameter gibt nur an, was zusätzlich zu Dateien gefunden werden soll und hilft daher nicht beim Filtern.

if (sr.Attr and faDirectory) = faDirectory) then
begin
...
end;

sr.Attr enthält die Attribute für das gefundene Objekt. Mittels einer binären Verknüpfung kannst du prüfen, ob das Bit für den Typ "Verzeichnis" gesetzt ist. Nur diese Objekte sind wirklich Verzeichnisse.
Die beiden ersten Treffer bei einer Suche sind idR zwei "Verzeichnisse" mit den Namen "." und "..".

 

[BernddasBrot1]

Vielen Dank!

Jetzt funktioniert alles wie gewünscht!