一个不难的问题(50)

如下：.....type tproc=procedure(astring:string);
tfunc=function(a:integer):integer;
.....................type trec=record ..... P:tproc;
F:tfunc;
........ end;
.............type tobj=class ...... do
:trec;
....... end;
.........var obj:tobj;
......我在deplhi的和别的源码中看到很多地方用了这样的方法；我有下面不懂：Tproc是一个过程,TFunc是一个函数，那么他们的实现代码是在哪里？obj.do.p , obj.do.F应该是个过程和函数吧？如果我在做这样的动作： procedure prouce(astring:string);
//obj.do.P要做的动作；begin
messagebox(0,pchar(astring),'',mb_ok);
end;
function func(a:integer):integer;
//obj.do.F要做的动作；begin
result:=a+1;
end;
我应该在哪写这些实现代码呢？？？请指教，谢谢。

我看到Tbutton等等的Onclick好像就是用这样的方式，可是那里我们却是上Onclick事件里写代码，可是我的这个没有窗体，不知道在哪写代码啦，，

太简单没有人愿说吗？书上我没看到详细一点，我刚学的

Tproc表示一个过程指针类型，该过程只有一个参数，且参数类型是string的过程。tfunc表示一个函数指针类型，该函数只有一个参数，且参数类型是int，函数返回类型是Int.if assigned(do.p) then
do
.p('znxia')

do.p := @prouce;
if assigned(do.p) then
do
.p('znxia')

非常感谢！！

在试着结帖，如何结帖呢？

那prouc要写在哪？？声明部分还是实现部分?inerfaceuses ...........;type...............end;
///要写在这吗？var .....emplement

接受答案了.