一个简单实例,使用Delphi实现多态。并且当需要实现新的子类时,主程序不需要做任何修改。