[问题]方法"Assign"重复实现**

s1113

现要改造一个基类，使之可以持久化：
  TSample = class(TPersistent)  //原自TObject继承
  public
    procedure Assign(Source: TPersistent); overload; override;  //改造增加
    procedure Assign(Source: TSample); overload; virtual;
  end;  

编译报如题错误？
同样的代码如果放在Delphi6下就是好的，可有思路？不胜感激！
    procedure Assign(Source: TSample); virtual;
已被众派生类继承且到处被引用，不宜改变。

SMP

如果dephi下编译能过，那么Studio中编译也能过的，楼主是不是自己写错代码了！特别是实现部分是不是函数的签名儿有问题！一般只有在两个同名函数签名也相同的情况下才会报方法重复实现的编译异常！
楼主的代码中的实现部分是否写成了
   procedure TSample.Assign(Source: TPersistent);
   procedure TSample.Assign(Source: TPersistent);
或：
   procedure TSample.Assign(Source: TSample);
      procedure TSample.Assign(Source: TSample);

s1113

奇怪了，我确实没写错，检查过无数遍了才上来发的贴，不过经你提醒，我新建了一个测试单元，同样的写法又确实能编译通过，怪哉！