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.

[michaott]

Hallo,

Fehler bei ToStream und FromStream

Code:

825c825
<        if not RttiProp.IsWritable then continue;
---
>        if not (RttiProp.IsWritable and RttiProp.IsReadable) then continue;
1216c1216
<          if not RttiProp.IsReadable then continue;
---
>          if not  (RttiProp.IsWritable and RttiProp.IsReadable) then continue;

Grüße Michael