示例代码：Delphi中类的多态性应用
var MyFigure: TFigure; x, y: integer; begin x := 50; y := 50; MyFigure := TRectangle.Create; MyFigure.Draw(x, y); // 调用Rectangle.Draw(x, y) MyFigure.Free; MyFigure := TEllipse.Create; MyFigure.Draw(x, y); // 调用TEllipse.Draw(x, y) MyFigure.Free; end;
文件大小：409KB
评论区