delphi - 子孫クラスでパラメーターが異なる仮想関数を定義するにはどうすればよいですか?

Question

基本クラスで仮想的に定義され、後で派生クラスで実装される Copy ルーチンが必要でした。問題は、パラメーターが異なるため、プロシージャーをオーバーライドできないことです。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;

Answer 1

パラメーター リストを同じに保つ必要があります。実装内で型チェックを行うだけです。

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;