Delphi的学习笔记十四——接口2

{此接口声明了一个 Name 属性; 因为接口没有字段, read/write 都只能从方法}
  IMyInterface = interface
    function GetName:string;
    procedure SetName(val:string);
    property name:string read GetName write SetName;
  end;

{类实现的是接口的读写方法, 属性还是属于接口的; 类可以提供一个储存属性的字段}
  TMyClass = class(TInterfacedObject,IMyInterface)
  private
    FName : string;
  public
    function GetName: string;
    procedure SetName(val: string);
  end;