[Rokuell]

Пример использования:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var CT:TClassesTree;
    dir:string;
begin
 dir := 'C:\Program Files\Borland\Delphi7\Projects\PAPKA\';
 CT := TClassesTree.Create;
 try
  // исключая конструкции вида:   TClass2 = class of TClass1;
  CT.IncludeClassLinks := false;
  CT.IncludeDebugInfo := false;
  // поиск включая подпапки
  CT.GetClassesFromDir(dir,true);
  // в TreeView1 построим дерево классов
  CT.MakeTree(TreeView1); 
  // сохраним в виде дерева
  // ( можно использовать TreeView1.SaveToFile
  // результат будет одинаковый, кстати, полученный файл
  // можно будет загрузить используя TreeView1.LoadFromFile )
  CT.SaveAsTree(dir+'ClassesTree.txt');
  // сохраним в виде сортированного списка
  CT.SaveAsSortList(dir+'ClassesList.txt');
 finally
  CT.Free;
 end;
end;