TSearchRec.Findfirst, findnext Alternative

[DeddyH]

Ungetesteter Vorschlag:

Delphi-Quellcode:

procedure IndicateSubDirs(const ADirectory: String; ATree: TTreeView; Node: TTreeNode);
var
  S: TSearchRec;
  N: TTreeNode;
begin
  N := nil;
  if FindFirst(IncludeTrailingPathDelimiter(ADirectory)+'*.*', faDirectory, S) = 0 then
    try
      repeat
        if (S.Attr and faDirectory) = faDirectory then
          if (Rec.Name <> '.') and (Rec.Name <> '..') then
            N := ATree.Items.AddChild(Node, S.Name);          
      until Assigned(N) or (FindNext(S) <> 0);
    finally
      SysUtils.FindClose(S);
    end;
end;