如何通过Delphi在子类中重写父类中定义的不同虚函数参数？

本文共计794个文字，预计阅读时间需要4分钟。

我想要在一个基类中定义一个作为虚拟的实例，之后在派生类中实现。问题是由于参数不同，不允许覆盖该过程。Delphi 的类模型有什么解决方案，还是我的方法完全错了？

在 Delphi 中，要实现基类中定义的虚拟过程（或方法）在派生类中被覆盖，通常需要使用 `virtual` 和 `override` 关键字。以下是一个简化的例子，说明如何正确地在基类和派生类中定义和使用虚拟方法。

delphitype // 基类定义 TBase=class public // 虚拟方法 procedure VirtualMethod; end;

// 派生类定义 TDerived=class(TBase) public // 覆盖基类的虚拟方法 override procedure VirtualMethod; end;

// 基类实现implementation

{ TBase }

procedure TBase.VirtualMethod;begin // 基类中实现的代码end;

// 派生类实现{ TDerived }

procedure TDerived.VirtualMethod;begin // 派生类中实现的代码end;

在这个例子中，`TBase` 类定义了一个虚拟方法 `VirtualMethod`。在 `TDerived` 类中，我们通过使用 `override` 关键字来覆盖这个方法。

关于你的问题，以下是一些可能的解决方案：

1. 检查参数是否兼容：确保基类和派生类中的虚拟方法参数列表是兼容的。如果参数不同，你可能需要修改参数列表或者使用其他方法来处理不同的逻辑。

2. 使用不同的方法名：如果你不能修改参数，可以考虑在派生类中使用不同的方法名来避免覆盖基类的方法。

3. 使用属性：如果你只是想封装不同的逻辑，而不是真正覆盖方法，可以考虑使用属性。

4. 检查错误：如果你的方法是正确的，但仍然遇到了问题，可能是因为其他原因，比如类型不匹配或者访问权限问题。

如果上述方法都无法解决问题，那么可能是你的方法确实有误，需要仔细检查你的代码，确保没有语法错误，并且正确使用了 `virtual` 和 `override` 关键字。

我想要一个
复制在基类中定义为虚拟的例程,稍后在派生类中实现.
问题是由于参数不同,不允许覆盖该过程.
Delphi的类模型有什么解决方案,还是我的方法完全错了？

type TCar = class procedure CopyFrom(c: TCar); virtual; end; TChrysler = class(TCar) FColor: Integer; procedure CopyFrom(c: TChrysler); override; end; procedure TCar.CopyFrom(c: TCar); begin //virtual end; procedure TChrysler.CopyFrom(c: TCrysler); begin FColor := c.FColor; end; var Car1, Car2: TCar; begin Car1 := TChrysler.Create; Car2 := TChrysler.Create; Car2.CopyFrom(Car1); //TChrysler.CopyFrom should be called. end; 您需要保持参数列表相同,只需在实现内部进行类型检查：

type TCar = class procedure CopyFrom(c: TCar); virtual; end; TChrysler = class(TCar) FColor: Integer; procedure CopyFrom(c: TCar); override; end; procedure TCar.CopyFrom(c: TCar); begin //virtual end; procedure TChrysler.CopyFrom(c: TCar); begin if c is TCrysler then FColor := TCrysler(c).FColor; inherited; end;