接口的属性
1.接口属性的定义
{此接口声明了一个 Name 属性; 因为接口没有字段, read/write 都只能从方法}
IMyInterface = interface
function GetName:string;
procedure SetName(val:string);
property name:string read GetName write SetName;
end;
2.接口属性的实现。通过声明实现接口的类中的字段来存取属性的值 {类实现的是接口的读写方法, 属性还是属于接口的; 类可以提供一个储存属性的字段}
TMyClass = class(TInterfacedObject,IMyInterface)
private
FName : string;
public
function GetName: string;
procedure SetName(val: string);
end;