摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils, Unit1 in 'Pas\Unit1.pas'; var p:Person;begin p:= Person.Create;//抽象方法一样可以实例化，但是会出现警告语句 p.setName('Delphi作者'); p.setAge(0); p.setSex('变态'); p.speak; p.Destroy;//一般使用Free，Free方法对P进行判断，如果不为nil... 阅读全文

摘要： program Project1; {$APPTYPE CONSOLE} uses SysUtils; Const //定义常量 author='who'; perpertys='what'; PI=3.1415926; var area:Real; //定义变量 i:Integer; begin Writeln(author+''+perpertys); //调用常量 area:= PI*3*3 ; //调... 阅读全文

摘要： 装饰设计模式当想要对已有对象进行功能增强时，可以定义一个类，将已有对象传入，基于已有对象的功能，并提供加强功能，那么，自定义的该类就称为装饰类装饰类通常会通过构造方法接收被装饰的对象，并基于被装饰对象的功能，提供更丰富的功能装饰模式比继承要灵活，避免了代码臃肿，而且降低了类与类之间的关系装饰类因为增强已有对象，具备的功能和已有的是相同的，只不过提供了更强的功能，所以装饰类和被装饰类通常都属于一个体系中的Reader 继承关系 |--TextReader |--BufferTextReader |--MediaReader |--BufferMediaR... 阅读全文