假设您有一个非常好设计的Delphi项目，遵循依赖注入和其他一些良好的实践。
现在假设您需要模拟定义为：
TMyClass = class
public
procedure Method1;
procedure Method2
end;
Method1和Method2不是虚方法。在这种情况下，我们需要模拟一个对象，我们需要继承它并且覆盖想要模拟的每个方法，但在这种情况下不可能，因为它们不是virtual。我应该改变源代码，在每个需要模拟的方法上添加virtual吗？这不好吧？
编辑：
我在考虑创建一个编译器指令，使类中的所有字段都成为virtual，这是一个好主意吗？只有我的测试套件会设置编译器指令。
编辑2*：
Embarcadero 应该提供一种简单的方法来更改类的方法指针到另一个方法指针，而不需要virtual。将方法设为虚函数，以便您可以模拟它们。(它们不需要是抽象的。)
如果您无法这样做，则使用另一个类来包装该类。让包装器的方法为虚函数，在默认实现中，只需将调用转发到原始类。无论您的程序在哪里使用原始类，都将其替换为包装器。现在，模拟包装器。
sed脚本应该能够在几分钟内完成所有更改，如果不起作用，请从源代码控制中恢复并重试。但是，如果您仍然不喜欢包装类的工作量，那么您可以选择我的第一个建议，只需将方法设置为虚拟即可。这只需要更改一个文件。 - Rob Kennedy不仅要使方法虚拟，还应该声明一个纯虚基类，并且让其他类只使用纯虚基类名称。这样，您就可以使用我们所谓的“Liskov替换原则”，并且可以创建所需数量的抽象基类的具体子类型。由于抽象基类就像Delphi中的接口一样运作（减去引用计数部分），因此您可以在两个世界中同时获得最佳结果。通过这种方式，您真正可以保持应用程序代码简单，并减少不良耦合，同时获得可单元测试的“组合对象”，并自己组装。
// in UnitBase.pas
TMyClassBase = class
public
procedure Method1; virtual; abstract;
procedure Method2; virtual; abstract;
end;
// in UnitReal.pas
TMyClassReal = class(TMyClassbase)
public
procedure Method1; override;
procedure Method2; override;
end;
// in UnitMock.pas
TMyClassMock = class(TMyClassbase)
public
procedure Method1; override;
procedure Method2; override;
end;
在使用"TMyClass"的地方，将其更改为使用TMyClassbase：
TMyOtherClass = class(TMyOtherClassBase)
private
FMyThing:TMyClassbase;
public
property MyThing:TMyClassBase read FMyThing write FMyThing;
end;
通过在运行时连接TMyOtherclass，您可以决定是使用真实的还是模拟的类：
// in my realapp.pas
MyOtherClassObj := TMyotherClass.Create;
MyOtherClassObj.MyThing := TMyOtherClassReal.Create; // real object
// in my unittest.pas
MyOtherClassObj := TMyotherClass.Create;
MyOtherClassObj.MyThing := TMyOtherClassMock.Create; // mock object
别忘了设置方法来释放 MyOtherClassObj.MyThing，否则就会有内存泄漏。
virtual而不是public。 - Rafael Coluccivirtual所能实现的，为什么要用某些东西来混淆15年来使用virtual的经验呢？我相信有一个正则表达式可以将所有非虚拟声明替换为virtual; {temp}，也有一个正则表达式可以将virtual {temp}替换回只有;。 - Johan