函数返回参数可以是一个包含多个结果的集合吗(分不够再加)

[xflin]

在DELPHI中可以像JAVA一样，在函数中返回类似于Vector一样的集合吗？我需要返回一个包含多个结果的集合，DEPHI中可以支持吗？我查了很多资料，好像在DELPHI中函数返回的参数只能一个。大家帮忙解决一下哈，分不够再加。

[xflin]

给全行吗？把代码给全行吗？

[wycg_cnh20]

是的，只能支持一个

[wycg_cnh20]

当时你可以自己定义一个你自己想要的集合类型出来作为返回参数

[beyondtkl]

那你就定义返回 record 或者

aaa(var return1...var returnN..) 做为【in/out】参数返回

[1_]

可以通過全局變量實現。

[wycg_cnh20]

例子：
TYourTest=('12','123','3213');
TAssembly =Set of TYourTest;
function YourFunction :TAssemBly;
begin
..........................
end;

[first_lover]

先定义一个记录
TDemo = record
astr1 : string;
astr2 : string;
end;
然后代码如下：
function TForm1.setValue(var aDemo : TDemo) : Boolean;
begin
result := true;
try
aDemo.astr1 := 'astr1';
aDemo.astr2 := 'astr2';
except
result := false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aDemo : TDemo;
begin
try
if setValue(aDemo) then
begin
Memo1.Lines.Add(aDemo.astr1);
Memo1.Lines.Add(aDemo.astr2);
end;
except
Memo1.Lines.Add('wrong');
end;

end;

也就是将多个返回结果放在一个记录中，作为一个变量返回。

[xflin]

我要求返回的参数是不定的，我现在要做的是，返回符合条件的窗口句柄和窗口上的一个控件句柄，而且是一，一对应的，也就是说要返回类似一张二维表的东西，由于我并不知道符合条件的窗口有多少，所以我要求有多少就返少，该怎么做啊？最好不要使用全局变量。

[anbeel]

看看TList例子

[xflin]

能不能给出具体例子，搞定后，再50分并立即结分

[anbeel]

procedure TForm1.FormButton1Click(Sender: TObject);

type
PMyList = ^AList;
AList = record
I: Integer;
C: Char;
end;

var

MyList: TList;
ARecord: PMyList;
B: Byte;
Y: Word;
begin
MyList := TList.Create;
try
New(ARecord);
ARecord^.I := 100;
ARecord^.C := 'Z';
MyList.Add(ARecord); {Add integer 100 and character Z to list}
New(ARecord);
ARecord^.I := 200;
ARecord^.C := 'X';
MyList.Add(ARecord); {Add integer 200 and character X to list}

{ Now paint the items onto the paintbox}
Y := 10; {Variable used in TextOut function}

for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items[B];
Canvas.TextOut(10, Y, IntToStr(ARecord^.I)); {Display I}
Y := Y + 30; {Increment Y Value again}
Canvas.TextOut(10, Y, ARecord^.C); {Display C}
Y := Y + 30; {Increment Y Value}
end;

{ Cleanup: must free the list items as well as the list }
for B := 0 to (MyList.Count - 1) do
begin

ARecord := MyList.Items[B];
Dispose(ARecord);
end;
finally
MyList.Free;
end;
end;

[hailang_zh]

自定义集合啊，什么都能返回的。

[liuqifeiyu]

返回一个数组类型的不行吗？

[xflin]

怎么样自定义集合啊？

[victor_yang]

var
vVector:Olevariant;
begin
vVector:=vararraycreate([0,n],varvariant);
vVector[0]:='abc';
vVector[1]:=123;
vVector[2]:=1.23;
.
.
.
YourFunction(vVector);
end;
明白吗？

[goodloop]

可以啊..自定义一个类型就好了

[jinjazz]

type
Txxx = packed record
a : char;
b : char;

end;

[xflin]

谢谢各位，我对于vector_yang的方案比较感兴趣，，由于我是初学，希望vector_yang能够写得更详细一点，谢谢各位了。

[victor_yang]

var
vVector:Olevariant;
begin
vVector:=vararraycreate([0,n],varvariant);
vVector[0]:='abc';
vVector[1]:=123;
vVector[2]:=1.23;
.
.
.
YourFunction(vVector);
FreeAndNil(vVector);
end;

procedure YourFunction(aVector:OleVariant);
var
v1:String;
v2:Integer;
v3:real;
begin
v1:=aVector[0];
v2:=aVector[1];
v3:=aVector[2];
ShowMessage(format('1是''%s'',2是%d,3是%g',[v1,v2,v3]));
end;
不知道楼主是否满意？

[knife_s]

其实可以变通的，带传址参数就行了，把需要返回的值写在传址参数里就可以了