.

.

.

.

.

运行结果:

Delphi 设计模式:《HeadFirst设计模式》Delphi代码---工厂模式之抽象工厂