DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: deliping
今日帖子: 0
在线用户: 3
导航: 论坛 -> 发布控件 斑竹:liumazi,ruralboy  
作者:
男 lwt3541699 (小暴) ★☆☆☆☆ -
普通会员
2005/1/30 16:46:02
标题:
我定一个过程怎么来调用这个过程呢? 浏览:1466
加入我的收藏
楼主: 问个问题
我写了一个过程
procedure abcd;
begin
showmessage('asdf')
end;
请问怎么调用他 
也可能我的格式写的有错误还请指点一二
麻烦随便写一个例子
----------------------------------------------
-
作者:
男 lwt3541699 (小暴) ★☆☆☆☆ -
普通会员
2005/1/30 16:48:53
1楼: 顶一下
----------------------------------------------
-
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2005/1/30 17:09:51
2楼: procedure Test;
begin
  abcd;
end;
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 lwt3541699 (小暴) ★☆☆☆☆ -
普通会员
2005/1/30 18:08:34
3楼: 不太懂这个。
procedure TForm1.Button8Click(Sender: TObject);
begin
abcd;
end;


procedure abcd;
begin
showmessage('asdf')
end;
这样运行会有错误啊
----------------------------------------------
-
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2005/1/30 18:42:34
4楼: procedure abcd;的实现扔到Button8Click前面
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 liuguangming (热带雨林) ★☆☆☆☆ -
普通会员
2005/1/30 18:44:30
5楼: procedure  TForm1.abcd;
begin
showmessage('asdf')
end;

就行了
----------------------------------------------
-
作者:
男 kissxw (飘) ★☆☆☆☆ -
盒子活跃会员
2005/3/21 15:37:31
6楼: procedure  TForm1.abcd;
begin
showmessage('asdf')
end;

或者

procedure TForm1.Button8Click(Sender: TObject);
  procedure abcd;
  begin
    showmessage('asdf')
  end;
begin
  abcd;
end;
----------------------------------------------
hello
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行68.84766毫秒 RSS