再谈多态--多态的应用举例：

再谈多态--多态的应用举例：
  这一段时间关于多态的讨论可谓一浪高过一浪，各位大虾都有高论出炉。本人也按奈不住，所以结合一下本人的工作实际，谈谈多态的应用问题。
  在我做系统的早期所应用的多态情况较少,多是出现这样一些用到多态的情况
var
  s : tstrings;
begin
  s := tstringlist.create;
  try
    s.add('hello!');
    ....
  finally
    s.free;
  end;
end;
上面这段程序可能在很多人的源程序中都出现过,而且以"tstringlist.add"来搜delphi的help可以看到类似的例子。对于tstrings由于其方法create是abstract所以不能直接使用必须使用其子类的create方法。这里就是把子类(tstringlist)的对象实例赋给定义的父类(tstrings)对象;而add在tstrings中是被声明为virtual的，那么根据多态的特性s对象在使用add方法时会调用其创建时所使用的类型(tstringlist)的方法而不是tstrings。
  这里还是体现不出多态的好处，那么就拿我做过的一个表格系统为例子吧。做这个系统的时候要求做一系列表格，基本上是一个表格一个form如:tgridform1,tgridform2...，然后这些form内嵌在外部的一个tcontainerform中,由tcontainerform调用所有表格form的方法如存盘(save).到这里都没有问题，很简单。注意现在问题来了。系统要求每一个表格form独立打包，而且程序开发过后会不断的加入新的未知的表格form，但不允许将整个程序重新codeing和compile，对于最终用户来说只要down一个新的包含这个表格的包就能使用新的表格。这时多态的强大作用就发挥出来了。我是这么做的，做一个tparentgridform一个所有表格form的父类，它定义了所有可能的方法(如：save)，当然是virtual的。这时各个表格form根据业务要求自行实现save等方法。 对于tcontainerform来说它只知道tparentgridform不知道具体的表格form但是由于多态的作用，当tcontainerform在调用内嵌在它里面的form的save方法时会正确的调用各个表格form的save方法，这样各个表格的业务逻辑就实现了。而且以后不管加多少个新的表格，tcontainerform都会实现其正确功能，并且勿需重新compile整个系统了。哈哈，有点对象插件的味道。
  可见如果大家善于利用多态的话，在现实的编程中会享受到其极大的好处。特别是对于上面这种灵活度要求很高的系统。
  哈哈讲了这么多不知道大家明白不。