Delphi中建立个类，要让基类和 派生类实现的克隆操作。

Question

是个初学者，这里的Delphi的克隆是不能强制转换的。因为是动态的。

Answer 1

procedure AssignTo(Dest: TPersistent); 
这个过程是克隆操作。在派生类里要重载这个方法。在这里操作要复制的数据。
以下是ADODB参数的克隆方法。
procedure TParameter.AssignTo(Dest: TPersistent);  procedure AssignToParam(Param: TParam);
  begin
    Param.Name := Name;
    Param.ParamType := TParamType(Direction);
    Param.DataType := DataType;
    Param.Size := Size;
    Param.Precision := Precision;
    Param.NumericScale := NumericScale;
    Param.Value := Value;
  end;begin
  if Dest is TField then
    TField(Dest).Value := Value
  else if Dest is TParam then
    AssignToParam(TParam(Dest)) else
    inherited AssignTo(Dest);
end;

Answer 2

能不能加一个QQ我是自学的QQ992951871