delphi 的接口(4) - 接口的属性
代码文件: nit unit1； interface ses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls； type tform1 = class(tform) b tton1: tb tton； proced re b tton1click(sender: tobject)； end； {此接口声明了一个 name 属性； 因为接口没有字段, readwrite 都只能从方法} imyinterface = interface f nction getname : string； proced re setname(val : string)； property name : string read getname write setname； end； {类实现的是接口的读写方法, 属性还是属于接口的； 类可以提供一个储存属性的字段} tmyclass = class(tinterfacedobject, imyinterface) private fname: string； p blic f nction getname: string； proced re setname(val: string)； end； var form1: tform1； implementation {$r *.dfm} { tmyclass } f nction tmyclass.getname: string； begin res lt := fname； end； proced re tmyclass.setname(val: string)； begin fname := val； end； { tform1 } proced re tform1.b tton1click(sender: tobject)； var c: tmyclass； i: imyinterface； begin c := tmyclass.create； i := c；  := abc ； showmessage()； {abc} 没有一个  存在, 这个属性只属于接口 end； end.