定义一个自己内定的孙子数类型,并可将其做参数
type myproc=procedure(str1:string);
procedure str(myp:myproc);
即可
type myproc=procedure(str1:string);
procedure str(myp:myproc);
即可
解决方案 »
- 关于RTTI的问题请教。
- 能将 Panel1 的底色设置成透明吗 ?
- 一段验证用户和密码的代码,请高手来看看有什么错误没?####问题解决就给分####
- 一个有点难度的问题!分不是问题
- 谁有防火墙delphi源代码
- 着急上火啊!!!(数据库动态连接的问题)小弟先谢了!
- 头疼,关于ADO的问题
- SQL6.5的表删除不掉(肯定已经坏了),望各位支持一下,谢了(在线等待)
- 请问哪里有可以具有“自动完成输入”功能的输入框的控件?
- 请高手帮忙,读硬盘序列号出的怪问题
- eping说的不对有错误!(delphi中winexec后跟路径名该怎么用?)
- 请各位高手赐教!不甚感激!!!(delphi中winexec后跟路径名该怎么用?)
TMyProc = procedure (mStr: string);procedure p1(mStr: string);
begin
ShowMessage('我是第一个' + mStr);
end;procedure p2(mStr: string);
begin
ShowMessage('我是第二个' + mStr);
end;procedure pStr(mMy: TMyProc; mStr: string);
begin
mMy(mStr);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
pStr(p1, 'No.1');
pStr(p2, 'No.2');
end;