[front242]

Уважаемые, имею траблы с GetPropList. Функция честно возвращает список
property, но когда property имеет тип record, то функция не включает её
в возвращаемый список.

Код:

program enumerator;

{$APPTYPE CONSOLE}

uses
  TypInfo,
  Classes,
  SysUtils;

type

    tRec = record
     x,y : Single;
    end ;

    tBaseClass = class ( TPersistent )
    end ;

    tChild = class( tBaseClass )
    private
      Fbeta: Boolean;
      Falpha: string;
      Flazha: tRec;
    published
      property alpha : string read Falpha write Falpha;
      property beta : Boolean read Fbeta write Fbeta;
      property lazha : tRec read Flazha write Flazha;
    end ;

var
  List: PPropList;
  Count, i : integer;

begin
  with tChild.Create do
   begin
     GetMem(List, 3);
     Count := GetPropList(ClassInfo, tkAny, List);
     for i := 0 to count -1 do
      with List[ I ]^ do
        writeln( format( '%s %s (%s)', [ Name, PropType^.Name, getenumname( typeinfo(TTypeKind ), Integer(PropType^.Kind ) )  ] ) );
     FreeMem( List );
     Free;
   end;
  Readln;
end.

Вывод:

Код:

alpha String (tkLString)
beta Boolean (tkEnumeration)

Можно ли с этим как нибудь побороться?

[front242]

спасибо за помощь, нашел самостоятельно вот этот хак
http://alex.ciobanu.org/?p=55

[poli-smen]

Сообщение от front242

спасибо за помощь, нашел самостоятельно вот этот хак
http://alex.ciobanu.org/?p=55

А разве этот хак будет работать на Delphi7 ?

[lmikle]

Сообщение от poli-smen

А разве этот хак будет работать на Delphi7 ?

Возможно, будет работать другой "хак". Просто модуль, в котором описана запись, надо скомпилить с поддержкой RTTI ({$M+}, если не ошибаюсь).

[front242]

да. к сожалению в 7 это не работает. вопрос остаётся открытым. {$M+} тоже не помогает, видимо потому что TPersistent в Classes уже объявлен режиме $M+

[poli-smen]

Сообщение от lmikle

Возможно, будет работать другой "хак". Просто модуль, в котором описана запись, надо скомпилить с поддержкой RTTI ({$M+}, если не ошибаюсь).

Класс TPersistent уже скомпилирован с директивой {$M+}. Следовательно и он, и все его потомки умеют генерировать RTTI информацию для published свойств (ну конечно кроме тех которые скомпилированы с директивой {$M-} и их потомками).

[Freeman]

Сообщение от poli-smen

ну конечно кроме тех которые скомпилированы с директивой {$M-} и их потомками

ЕМНИП, {$M+} -- логически неотключаемая директива. Достаточно скомпилировать один из предков с {$M+}, чтобы все его потомки были тоже {$M+} вне зависимости от расставленных в коде {$M-}, которые попросту игнорируются.

[poli-smen]

Сообщение от Freeman

ЕМНИП, {$M+} -- логически неотключаемая директива. Достаточно скомпилировать один из предков с {$M+}, чтобы все его потомки были тоже {$M+} вне зависимости от расставленных в коде {$M-}, которые попросту игнорируются.

Совершенно верно. Только что проверил - так в действительности и оказалось.