• Assginを実装するには
• 検討
  • Delphi2010のAssign実装をソースコードから追ってみる。
  • Assignを直接オーバーライドで良いんじゃないか？
• 参考

procedure TIxRecordOption.AssignTo(Source: TPersistent);
begin
  TIxRecordOption(Source).FModified := FModified;
  TIxRecordOption(Source).FTimeStampInterval := FTimeStampInterval;
end;

   TPersistent = class(TObject)
   private
     procedure AssignError(Source: TPersistent);
   protected
     procedure AssignTo(Dest: TPersistent); virtual;
   public
     procedure Assign(Source: TPersistent); virtual;
   end;

 procedure TPersistent.Assign(Source: TPersistent);
 begin
   if Source <> nil then Source.AssignTo(Self) else AssignError(nil);
 end;

 procedure TPersistent.AssignTo(Dest: TPersistent);
 begin
   Dest.AssignError(Self);
 end;

 procedure TPersistent.AssignError(Source: TPersistent);
 var
   SourceName: string;
 begin
   if Source <> nil then
     SourceName := Source.ClassName else
     SourceName := 'nil';
   raise EConvertError.CreateResFmt(@SAssignError, [SourceName, ClassName]);
 end;