Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 471

/ вопрос решён /

Здравствуйте, эксперты!
Подскажите, пожалуйста, как можно получить список классов секции interface в Unit при известном имени этого Unit.
Я уже видел такое, только забыл названия методов...

Пример:

Приложение:
  1. unit unit1;
  2.  
  3. interface
  4.  
  5. type
  6.  
  7. TClass1 = class end;
  8. TClass2 = class end;
  9. TClass3 = class end;
  10.  
  11. implementation
  12.  
  13. end.
  14.  
  15. ========
  16.  
  17. unit unit2;
  18.  
  19. interface uses Classes;
  20.  
  21. type
  22.  
  23. TClassX = class
  24. public funtion proc: TStringList;
  25. end;
  26.  
  27. implementation
  28.  
  29. function TClassX.proc: TStringList;
  30. begin
  31.  
  32. {
  33.  
  34. TClass1
  35. TClass2
  36. TClass3
  37. }
  38. end;
  39.  
  40. end.


dmistand Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: dmistand (статус: 1-ый класс)
Вопрос отправлен: 26 августа 2013, 13:01
Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, dmistand!
Если в каком то произвольном pas файле, тогда нужно делать парсер. И парсить все вручную (хотя можно поискать готовые парсеры).
Если же это модуль в Вашем приложении, тогда можно - stack overflow

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 26 августа 2013, 13:29
Оценка за ответ: 5

Комментарий к оценке: Да-да! Это то, что нужно, спасибо!
Единственное: чтобы это работало, классы нужно регистрировать в потоковой системе. Привожу код обоих модулей:

unit Unit1;

interface uses Classes;

type

  TClass1 = class(TPersistent) end;
  TClass2 = class(TPersistent) end;
  TClass3 = class(TPersistent) end;

implementation

initialization

  RegisterClasses([TClass1, TClass2, TClass3]);

end.

========

program test_unit_classes;

{$APPTYPE CONSOLE}

uses
  Rtti,
  SysUtils,
  Unit1 in 'Unit1.pas';

procedure Test;
Var
 t : TRttiType;
  //extract the unit name from the QualifiedName property
  function GetUnitName(lType: TRttiType): string;
  begin
    Result := StringReplace(lType.QualifiedName, '.' + lType.Name, '',[rfReplaceAll])
  end;

begin
 //list all the types of the System.SysUtils unit
  for t in TRttiContext.Create.GetTypes do
   if SameText('Unit1',GetUnitName(t)) and (t.IsInstance) then
     Writeln(t.Name);
end;

begin
  try
    Test;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

Мини-форум вопроса

Всего сообщений: 0.

26 августа 2013, 14:06: Статус вопроса изменён на решённый (изменил автор вопроса — dmistand)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 31 января 2023, 09:44
Выполнено за 0.02 сек.
Рейтинг@Mail.ru