RiverSoftAVG Products Help

Delphi

public 
  procedure ReadPersistent( Instance: TPersistent ); 
 

To create a defined TPersistent property for your component, include the FilerHelper unit in your uses statement, and then override the protected DefineProperties method:

Delphi

TMyComponent = class(TComponent)
 private
   { private declarations }
 protected
   { protected declarations }
   procedure ReadMyProp(Reader: TReader);
   procedure WriteMyProp(Writer: TWriter);
   procedure DefineProperties(Filer: TFiler); override;
 public
   { public declarations }
   property MyProp: TPersistent read FMyProp write SetMyProp;
 published
   { published declarations }
 end;
 [...]
 procedure TMyComponent.DefineProperties(Filer: TFiler);
 begin
   inherited DefineProperties(Filer);
   Filer.DefineProperty('MyProp', ReadMyProp, WriteMyProp, True);
 end;

Reference

•FilerHelper.TWriterHelper.WritePersistent(TPersistent)

•TReaderHelper

•FilerHelper