RiverSoftAVG Products Help

Delphi

public 
  procedure Assign( const AValue: IInterface ); overload; 
 

The following code implements the Assign method by copying all the data it knows

Delphi

procedure TFactTemplate.Assign(AValue: IUnknown);
 begin
      with AValue as IFactTemplate do
      begin
           FBackwardChaining := BackwardChaining;
           FComment := Comment;
           FTemplateName := TemplateName;
           if (Parent <> nil) and
              (Parent.Owner <> Owner) then
              FParent := nil
           else
               FParent := Parent;
           Self.AssignSlots( AValue as IFactTemplate );
           FOrdered := Ordered;
           FTag := Tag;
      end;
 end; 

Reference

•CommonInterfaces.ICloneable.Clone

•ICloneable

•CommonInterfaces