Question

delphi Property 怎么实现调用函数

代码如下所示
type
cc=class
private
procedure GetName(name:string);
procedure SetName(name:string);
published
Property name:string read GetName write SetName;
end;
像我这样写就出异常，我的编译器是delphi7，请问有什么解决的办法吗？？、
或者求高手怎么去写，实现这个效果。

Answer 1

你这样写吧，用快捷键自动完成
type
cc=class
private
published
Property name:string read GetName write SetName;
end;
然后把鼠标定义到 Property name:string read GetName write SetName; 这一行（其实只要在类CC范围内就可以），然后按 Ctrl+Shift+C 键就能自动生成了。

http://hi.baidu.com/lemtech

Answer 2

function GetName(): string;
procedure SetName(name:string);

Answer 3

cc=class
    private
      procedure GetName(name:string);//输出需要返回值,得用function GetName():String;
      procedure SetName(name:string);
    published
      Property  name:string  read GetName write SetName;
  end;

追问

不行啊！代码写成这样也报错

implementation

function cc.GetName(name: string): String;

begin

   Result:='test';

end;

procedure cc.SetName(name: string);

begin

end;

追答

不能输入参数,function GetName:String;