主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

创建自己的程序 找到类似的分支


nikoss   (2002-07-16 14:03) [0]

有一个包含许多代码行的过程。 部分
必须在单独的过程中分配代码,以免重复
在不同的程序中使用相同的行。 问题如下。
如何创建自己的过程,以便每个人都可以访问它
程序。
一个简化的例子:

VAR
Form1:TForm1;
a,b,c,z:整数;
履行

{$ R * .dfm}

过程TForm1.Button1Click(Sender:TObject);
开始
一个:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
c:= a + b; //常用计算。
//有必要将它分成一个单独的过程
//从其他过程访问它。
结束;

过程TForm1.Button2Click(Sender:TObject);
开始
z:= c + 10;
Label1.caption:= IntToStr(z);
结束;

结束。



Kaban   (2002-07-16 14:06) [1]

哇...



anatol   (2002-07-16 14:07) [2]

v4em sobstveno问题? Prosto sozday protseduru vne ili v klase formi v zavisimosti ot 4ego vam nujno i rabotaite ...



ПИТОН   (2002-07-16 14:08) [3]

教帕斯卡
函数汇总(a,b:整数)
开始
摘要:= a + b
结束;

过程TForm1.Button1Click(Sender:TObject);
开始
一个:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
c:=求和(a,b);
结束;




-=Sergeante=-   (2002-07-16 14:08) [4]


程序MyProc;

VAR
Form1:TForm1;
a,b,c,z:整数;
履行

{$ R * .dfm}

程序MyProc;
开始
c:= a + b;
结束;

过程TForm1.Button1Click(Sender:TObject);
开始
一个:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
Myproc
结束;



Поперхнувшийся   (2002-07-16 14:12) [5]

某种疯人院...



saxon   (2002-07-16 14:24) [6]

有很多方法可以做到这一点
但最好的事情是根本不做:))




tovSuhov   (2002-07-16 14:33) [7]

你为什么生气? 人自己达到了结构编程的概念! 这值得称赞!



Прибалдевший   (2002-07-16 14:33) [8]

谢谢你 非常有启发性的答案! 什么是问题!? 精巧!



Прибалдевший   (2002-07-16 14:38) [9]

而你,苏霍夫同志,我请你留下来!



Anatoly Podgoretsky   (2002-07-16 14:40) [10]

功能添加(左,右:扩展):扩展;
开始
结果:=左+右;
结束;



Виктор Щербаков   (2002-07-16 14:47) [11]

你在做什么
这个问题的表述很好。



Прибалдевший   (2002-07-16 15:00) [12]

还有您,谢尔巴科夫先生,我也请您留下来并鼓励本年度的Nikolai 21先生关注他的事情!



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.58 MB
时间:0.032 c
14-95491
阿贾克斯
2002-06-27 15:09
2002.07.29
会计程序......


1-95337
Victor n golutvin
2002-07-17 15:36
2002.07.29
德尔福6。 INDY - 工具。 怎么???


3-95216
PashketSiniz
2002-07-08 11:38
2002.07.29
??


4-95612
Nubie
2002-05-22 02:30
2002.07.29
?如何添加PE文件?


3-95209
nitro313
2002-07-08 02:40
2002.07.29
人们,告诉我如何在删除时保留增量字段?





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский