全部博文（788）
分类：
2009-04-22 11:00:58
用引用做为参数。如：
function abc(var aa,bb,cc:double):double;//共相当于返回4个double值
begin
aa:=......
bb:=......
cc:=.....
result:=......
end;
//---------------------------------------------
...以下是调用
var
aatrue,bbtrue,cctrue,ddtrue:double;
begin
aatrue:=...
bbtrue:=...
cctrue:=...
ddtrue:=abc(aatrue,bbtrue,cctrue);
end;
//仓促写的，没有用大小写母，不好看，见谅
我测试的结果：
function abc(var aa,bb,cc:double):double;//共相当于返回4个double值
begin
aa:=12.6;
bb:=88.89;
cc:=2345.907;
result:=aa+bb+cc;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
aatrue,bbtrue,cctrue,ddtrue:double;
begin
aatrue:=0.0;
bbtrue:=0.0;
cctrue:=0.0;
ddtrue:=abc(aatrue,bbtrue,cctrue);
memo1.Lines.Add('以下是四个变量新值：'+floattostr(aatrue)+','+floattostr(bbtrue)+','+floattostr(cctrue)+','+floattostr(ddtrue));
end;
结果：
12.6,88.89,2345.907,2447.397
result返回什么啊？
能写具体点吗？那三个返回值我是想分别得到的．
那如果我没有传递参数呢？C_LT_L,C_LA_B,C_HI_H三个参数都是类里的公共变量,现在想用这个函数来获得这三个变量
function THHUCoord.GetParams();
begin
C_LT_L;
C_LA_B;
C_HI_H;
end;
要么就用var
要么就返回一个记录（结构体）
type IWantData = record
aa:...;
bb:...;
cc:...;
end;
function abc(var aa,bb,cc:double):IWantData ;//共相当于返回3个double值
var
ret: IWantData;
begin
ret.aa:=......;
ret.bb:=......;
ret.cc:=.....;
result:=ret;
end;
强烈鄙视问题解决后不结贴的人!
强烈鄙视技术问题解决后把贴子转移到非技术区的人!
鄙视你们!
函数 怎么能 返回多个值呢？
To 楼上：
type
TTwo = record
x : String;
y : String;
z : String;
end;
Procedure FunOne(var a,b,c :integer); //传址(引用、别名）
begin
a := 9; //给三个变量赋值
b := 8;
c := 7;
end;
function FunTwo(InStr :string) :TTwo; //返回记录
var tempRec :TTwo;
begin
temp.x := copy(InStr,1,1);
temp.y := copy(InStr,2,1);
temp.z := copy(InStr,3,1);
result := tempRec;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : integer;
InStr : String;
begin
a := 0;//初值
b := 0;
c := 0;
funOne(a,b,c);
//测试经FunOne处理后（相当于“返回”）的a,b,c值变为9,8,7
showmessage(inttostr(a)+','+inttostr(b)+','+inttostr(c));
InStr := 'xyz';
//测试FunTwo()返回的3个记录成员值 x,y,z
showmessage(FunTwo(InStr).x+','+FunTwo(InStr).y+','+FunTwo(InStr).z);
end;
//上面两种方法，如果说第一种用“引用”做参数的方法只是相当于返回多值的话，那第二种，用记录，则是真正返回多值
temp.x 改为 tempRec.x
temp.y 改为 tempRec.y
temp.z 改为 tempRec.z
var xxx; 不是已经可以解决了吗？
谢谢。
的确实现了， 多个值的改动。
------------------
不过， 钻牛角的话， 这算不得 “返回多个值”的，
传地址调用的时候，只能说是，改变了 3 个值， 而只返回了 1 个变量 的
返回结构体，也是一个变量的，只是这个变量还是一个结构体
？？
不知道 Dephi 或 别的语言中， 有没有真正 返回多个值 的
这种问题有什么意义吗？
Delphi已经够NB了，函数可以返回任意类型。
你试试C++，很多类型必须要明确使用指向类型的指针才能作为函数的返回值。
认同楼上两层所说
最简单的方法，定义几个全局变量，在函数里赋值，在别处引用，当然，弊端不用我说，是很多的，我个人不推荐这么写，但是确实很简单
楼上的，你让别人用你的办法,还是不用你的办法啊?
:)
函数和过程其实是一样的，都不存在返回值的问题！
只是为了方便给一个返回值而已。
最后都是指针；
还是用VAR吧！
怎么不能结贴啊
还有一个方法真的可以返回一个ARRAY
function Mytest(......):OleVariant;
begin
Result:=VarArrayCreate([0,2],varInteger);
Result[0] := 0;
Result[1] := 1;
Result[2] := 2;
end;
或者是定义一个类型
TmyType = array [0..2] of integer;
function myText(...):TmyType;
begin
Result[0] := 1;
result[1] := 1;
result[2] := 0;
end;
