Klasse TPersistentEx zur Diskussion und Verbesserung

[michaott]

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.