{没有应用状态模式的代码} //工程文件 program Project1; {$APPTYPE CONSOLE} uses uGumballMachine in 'uGumballMachine.pas'; var aGumballMachine: TGumballMachine; begin aGumballMachine := TGumballMachine.Create(5); aGumballMachine.InsertQuarter; aGumballMachine.Turn…
状态模式(State Pattern) 介绍允许一个对象在其内部状态改变时改变它的行为.对象看起来似乎修改了它所属的类. 示例有一个Message实体类,对它的操作有Insert()和Get()方法,持久化数据在SqlServer数据库中或Xml文件里.在对象内部可以根据用户的不同选择不同的数据持久化方案. MessageModel using System; using System.Collections.Generic; using System.Text; namespace Patte…