На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Обязательно выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Этот раздел предназначен для вопросов, посвященных разработке компонентов, а также для тестирования собственных бесплатных компонентов с открытым исходным кодом.

Здесь запрещается:
1. Размещать ссылки на какие-либо коммерческие компоненты, реализующие требуемую функциональность.
2. Обсуждать и тестировать коммерческие компоненты или компоненты с закрытым кодом.
3. Давать ссылки на сайты с исходным кодом компонентов. Все тестируемые исходные коды должы быть размещены на сайте ИСХОДНИКИ.RU.
Модераторы: Rouse_, DimaBr
  
> RTTI , How many properties are there in definite class...
Rrader
   Сообщ. #1 ,
    Unregistered
    Как узнать, сколько свойств имеет класс AClass. :)
    ExpandedWrap disabled
      Function PropCount(AClass: TClass): Integer;
      Begin
       ?
      End;
    Master jack128
    Сообщ. #2 ,

      Master
      ******
      Профиль · PM
      Рейтинг (т): 181
      можно узнать сколько published свойств имеет класс

      ExpandedWrap disabled
        uses
          TypInfo;
         
        function PropCount(AClass: TClass): Integer;
        var
          TypData: PTypeData;
        begin
          TypData := GetTypeData(AClass.ClassInfo);
          Result := TypData.PropCount;
        end;
      Rrader
      Сообщ. #3 ,
        Unregistered
        Это и я знаю. Мне бы всех типов... :huh:
        Master jack128
        Сообщ. #4 ,

          Master
          ******
          Профиль · PM
          Рейтинг (т): 181
          в ран тайм это невозможно.
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0529 ]   [ 17 queries used ]   [ Generated: 23.04.24, 15:44 GMT ]  
          Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.