Hallo,
Nachtrag zur Doku:
verwendete Objekte müssen über RegisterClass registriert werden.
z.B. komplettes
Unit mit:
Delphi-Quellcode:
unit UMeineObjekte;
....
procedure RegisterMyClasses;
var
RttiCtx : TRttiContext;
begin
RttiCtx := TRttiContext.Create;
try
for var t
in RttiCtx.GetTypes
do begin
if t.IsInstance
then begin
var o := t.AsInstance;
var LUnitName := o.DeclaringUnitName;
if t.TypeKind = tkClass
then begin
If LUnitName = '
UMeineObjekte'
then begin
If (TRttiInstanceType(t).MetaclassType.InheritsFrom(TPersistentEx))
then begin
RegisterClass(TPersistentClass(TRttiInstanceType(t).MetaclassType));
end;
end;
end;
end;
end;
finally
RttiCtx.Free;
end;
end;
initialization
RegisterMyClasses;
end.