不行,倒不如用procedure子程序。
解决方案 »
- 求教桌面型数据库的选择问题!
- Word单元格的向下合并
- Delphi & Interbase 程序发布问题?
- CORBA不同网段访问问题
- 找男朋友,认真 + 严肃 。嘿嘿
- 如何获取网页中特定的数据?
- e族百变桌面的变幻问题
- 如何获得中文字符串的整个拼音啊???
- EmbeddedWB 如何操作Frame的Src?
- 我想在edit中输入若干个字符串,以';'作为间隔,通过以下程序分别读取每个串,运行错误:输入每个串位数相同时结果正确,输入各个串长度不同时
- 100分,在线等待,请帮帮忙,代码不通过
- 各位帮帮忙吧,进来看看这个insert问题???????????!!!!!!!!!!!!!!!!!!!!!!!!1
在传入的参数前加一个var,这个参数就可以传回了,
如上面的hh,在函数中改了hh的值,hh的值就回传回去。
这样不可以马吗
这样不可以马吗这是使用了两个参数,但不是返回两个值。比如说,有4个数要求最大和第二大的数,用一个函数调用,入口参数4个,出口参数是2个,怎么办?
fuction getnum(parm1,parm2,parm3,parm4:intger,var outm1,outm2 :integer):boolean;
begin
//在这里判断后,如parm最大,parm2第二个大就让outm1:=parm1
outm1:=parm1;
outm2:=parm2;
end;
这样定义调用时定义两个变量
var
a,b:integer;
begin
getnum(4,3,2,1,a,b);
//a反回了4,了反回3,
end;这下明白了吧