VPF::Вопрос по TypInfo - Форум программистов

CynicRus

Дата 13.7.2012, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5

Ещё раз приветствую уважаемых форумчан, господа - сел за typinfo, пытаюсь получить свойства компонента с формы.
Пока только имена свойств.

Код


Procedure GetProperties( Kinds: TTypeKinds; Source: TPersistent; List: TStrings);
 var
   pList: PPropList;
   Total, Props, i: Integer;
 begin
   Total := GetTypeData(Source.ClassInfo).PropCount;
   GetMem(pList, sizeof(PPropInfo) * Total);
   try
    Props := GetPropList( Source.ClassInfo, Kinds, pList );
      for i := 0 to Props-1 do
        begin
          List.AddObject(pList[i].Name, TObject(pList[i]) );
        end;
  finally
    FreeMem(pList, sizeof(PPropInfo) * Total);
  end;
 end;

Затем проверяю:

Код


PropList:=TStringList.Create;
  curitem:=TPersistent(Sender);
  GetProperties([tkInteger,tkString, tkChar, tkEnumeration, tkFloat,
     tkSet, tkWChar, tkLString,tkUString,tkUChar, tkWString,
    tkVariant, tkArray, tkInt64 ],curitem, PropList);
  PropList.SaveToFile('C:/test.txt');

И на выходе, вместо полного списка свойств - получаю только часть:

Код


Align
AlphaBlendValue
Anchors
BiDiMode
BorderIcons
BorderStyle
BorderWidth
ClientHeight
ClientWidth
Color
Cursor
DefaultMonitor
DragKind
DragMode
FormStyle
Height
HelpContext
HelpType
Left
PixelsPerInch
PopupMode
Position
ShowInTaskBar
Tag
Top
Width
WindowState

Собственно вопрос - а как их получить полностью, и в чем мой косяк?

CynicRus

Дата 14.7.2012, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5

Код


Procedure GetProperties( Kinds: TTypeKinds; Source: TObject; List: TStrings);
 var
 //  pList: PPropList;
   pInfo: TPropInfoList;
   Total, Props, i: Integer;
 begin
   PInfo:=TPropInfoList.Create(Source,Kinds);
  // Total := GetTypeData(Source.ClassInfo).PropCount;
  // GetMem(pList, sizeof(PPropInfo) * Total);
   try
   // Props := GetPropList( Source.ClassInfo, Kinds, pList );
     Props:=pInfo.Count;
      for i := 0 to Props-1 do
        begin
          //List.AddObject(pList[i].Name, TObject(pList[i]) );
            List.AddObject(Pinfo.Items[i].Name, TObject(Pinfo.Items[i]));
        end;
  finally
  //  FreeMem(pList, sizeof(PPropInfo) * Total);
 pinfo.free;
  end;
 end;

- результат аналогичен предыдущему.

CynicRus

Дата 14.7.2012, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5

Решил свою проблему, помогло -

Код


GetProperties(tkProperties,CurItem,PropList);

Спасибо за внимание-)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »