"全局过程指针"和"方法指针"的迷茫! ( 积分: 20 )

不明白"全局过程指针"和"方法指针"到底有什么区别?
能否给个例子,我写代码为什么通不过去
func:=Myfunc.showfunc;//此句编译通不过!不知道错在那里?请高手指点!

代码如下:

Type
......

TMyfunc=class
public
function showfunc(S:string):boolean;
End;

Tfunc=Function (name:string):boolean
//全局过程指针
TfunObject=Function (name:string):boolean of object
//方法指针

var
.....
implementation

function TMyfunc.showfunc(S: string): boolean;
begin
Showmessage(s);
Result:=True;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
myfunc:Tmyfunc;
func:Tfunc;
funobject:Tfunobject;
begin
Myfunc:=Tmyfunc.Create;
func:=Myfunc.showfunc;//此句编译通不过!
func('Test Tfunc');
end;

end.

不明白"全局过程指针"和"方法指针"到底有什么区别?
能否给个例子,我写代码为什么通不过去
func:=Myfunc.showfunc;//此句编译通不过!不知道错在那里?请高手指点!

代码如下:

Type
......

TMyfunc=class
public
function showfunc(S:string):boolean;
End;

Tfunc=Function (name:string):boolean
//全局过程指针
TfunObject=Function (name:string):boolean of object
//方法指针

var
.....
implementation

function TMyfunc.showfunc(S: string): boolean;
begin
Showmessage(s);
Result:=True;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
myfunc:Tmyfunc;
func:Tfunc;
funobject:Tfunobject;
begin
Myfunc:=Tmyfunc.Create;
func:=Myfunc.showfunc;//此句编译通不过!
func('Test Tfunc');
end;

end.

自己搞明白了,谢谢散分了!

帮顶

--------签名档---------------------------

惊爆开源站

http://www.source520.com

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新

接受答案了.