一个不难的问题(50)

  • 主题发起人 luchlooh
  • 开始时间
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
如下:.....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;
我应该在哪写这些实现代码呢???请指教,谢谢。
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
我看到Tbutton等等的Onclick好像就是用这样的方式,可是那里我们却是上Onclick事件里写代码,可是我的这个没有窗体,不知道在哪写代码啦,,
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
太简单没有人愿说吗?书上我没看到详细一点,我刚学的
 
Z

znxia

Unregistered / Unconfirmed
GUEST, unregistred user!
Tproc表示一个过程指针类型,该过程只有一个参数,且参数类型是string的过程。tfunc表示一个函数指针类型,该函数只有一个参数,且参数类型是int,函数返回类型是Int.if assigned(do.p) then
do
.p('znxia')
 
Z

znxia

Unregistered / Unconfirmed
GUEST, unregistred user!
do.p := @prouce;
if assigned(do.p) then
do
.p('znxia')
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
非常感谢!!
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
在试着结帖,如何结帖呢?
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
那prouc要写在哪??声明部分还是实现部分?inerfaceuses ...........;type...............end;
///要写在这吗?var .....emplement
 
L

luchlooh

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

顶部