Как получить список всех published свойств (имена и типы) 2

Delphi , Компоненты и Классы , RTTI

Автор: Grega Loboda
WEB-сайт: http://www.lmc-mediaagentur.de

uses
  TypInfo

procedure ListProperties(AInstance: TPersistent; AList: TStrings);
var
  i: integer;
  pInfo: PTypeInfo;
  pType: PTypeData;
  propList: PPropList;
  propCnt: integer;
  tmpStr: string;
begin
  pInfo := AInstance.ClassInfo;
  if (pInfo = nil) or (pInfo^.Kind <> tkClass) then
    raise Exception.Create('Invalid type information');
  pType := GetTypeData(pInfo); {Pointer to TTypeData}
  AList.Add('Class name: ' + pInfo^.Name);
  {If any properties, add them to the list}
  propCnt := pType^.PropCount;
  if propCnt > 0 then
  begin
    AList.Add(EmptyStr);
    tmpStr := IntToStr(propCnt) + ' Propert';
    if propCnt > 1 then
      tmpStr := tmpStr + 'ies'
    else
      tmpStr := tmpStr + 'y';
    AList.Add(tmpStr);
    FillChar(tmpStr[1], Length(tmpStr), '-');
    AList.Add(tmpStr);
    {Get memory for the property list}
    GetMem(propList, sizeOf(PPropInfo) * propCnt);
    try
      {Fill in the property list}
      GetPropInfos(pInfo, propList);
      {Fill in info for each property}
      for i := 0 to propCnt - 1 do
        AList.Add(propList[i].Name + ': ' + propList[i].PropType^.Name);
    finally
      FreeMem(propList, sizeOf(PPropInfo) * propCnt);
    end;
  end;
end;

function GetPropertyList(AControl: TPersistent; AProperty: string): PPropInfo;
var
  i: integer;
  props: PPropList;
  typeData: PTypeData;
begin
  Result := nil;
  if (AControl = nil) or (AControl.ClassInfo = nil) then
    Exit;
  typeData := GetTypeData(AControl.ClassInfo);
  if (typeData = nil) or (typeData^.PropCount = 0) then
    Exit;
  GetMem(props, typeData^.PropCount * SizeOf(Pointer));
  try
    GetPropInfos(AControl.ClassInfo, props);
    for i := 0 to typeData^.PropCount - 1 do
    begin
      with Props^[i]^ do
        if (Name = AProperty) then
          result := Props^[i];
    end;
  finally
    FreeMem(props);
  end;
end;

And calling this code by:

ListProperties(TProject(treeview1.items[0].data), memo3.lines); 

My tProject is defined as

type
  TProject = class(tComponent)
  private
    FNaam: string;
    procedure SetNaam(const Value: string);
  public
    constructor Create(AOwner: tComponent);
    destructor Destroy;
  published
    property Naam: string read FNaam write SetNaam;
  end;

Also note the output, there seem to be 2 standard properties (Name and Tag) !

Memo3
Class name: TProject

3 Properties
-------------------
Name: TComponentName
Tag: Integer
Naam: String

Код, который вы предоставили, написан на языке Delphi, основанном на Pascal. Процедура ListProperties итерирует над всеми свойствами класса, добавляя их имена и типы в список TStrings.

Когда вы вызываете ListProperties(TProject(treeview1.items[0].data), memo3.lines);, она выводит все публикуемые свойства класса TProject, включая наследуемые от TComponent. Вывод показывает два стандартных свойства: Name (типа TComponentName) и Tag (типа Integer). Он также выводит ваше пользовательское свойство Naam (типа String).

Следующий анализ кода:

1. ListProperties(AInstance: TPersistent; AList: TStrings);: Эта процедура принимает экземпляр класса (AInstance) и список (AList) в качестве входных параметров. Она выводит все публикуемые свойства класса, включая их имена и типы.
2. GetPropertyList(AControl: TPersistent; AProperty: string): PPropInfo;: Функция возвращает информацию о конкретном свойстве контрола. Она поискает свойство по имени и возвращает его тип информацией, если найдено.
3. В вашем примере вы вызываете ListProperties с экземпляром класса TProject (созданным из treeview1.items[0].data) и добавляете вывод в memo3.lines. Вывод показывает все публикуемые свойства класса TProject, включая наследуемые от TComponent.
4. Ваше пользовательское свойство Naam определено в разделе published вашего класса TProject определения. Это означает, что оно доступно для использования другими частями вашего программы.
5. Два стандартных свойства (Name и Tag) являются частью класса TComponent, который наследуется от TProject. Они автоматически добавляются в раздел published, когда вы создаете компонент, который наследуется от TComponent.

Обратите внимание, что этот код выводит только публикуемые свойства, а не приватные или защищенные. Если вам нужно выводить все свойства (включая не публикуемые), вам придется модифицировать код соответствующим образом.

Получить список всех published свойств объекта класса TProject включает в себя имена и типы свойств, используя функцию ListProperties.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::