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

xflin 2004-10-13 09:07:00
在DELPHI中可以像JAVA一样,在函数中返回类似于Vector一样的集合吗?我需要返回一个包含多个结果的集合,DEPHI中可以支持吗?我查了很多资料,好像在DELPHI中函数返回的参数只能一个。大家帮忙解决一下哈,分不够再加。
...全文
169 23 打赏 收藏 举报
写回复
23 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
knife_s 2004-10-22
  • 打赏
  • 举报
回复
其实可以变通的,带传址参数就行了,把需要返回的值写在传址参数里就可以了
victor_yang 2004-10-22
  • 打赏
  • 举报
回复
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;
不知道楼主是否满意?
xflin 2004-10-21
  • 打赏
  • 举报
回复
谢谢各位,我对于vector_yang的方案比较感兴趣,,由于我是初学,希望vector_yang能够写得更详细一点,谢谢各位了。
jinjazz 2004-10-20
  • 打赏
  • 举报
回复
type
Txxx = packed record
a : char;
b : char;

end;
goodloop 2004-10-20
  • 打赏
  • 举报
回复
可以啊..自定义一个类型就好了
victor_yang 2004-10-19
  • 打赏
  • 举报
回复
var
vVector:Olevariant;
begin
vVector:=vararraycreate([0,n],varvariant);
vVector[0]:='abc';
vVector[1]:=123;
vVector[2]:=1.23;
.
.
.
YourFunction(vVector);
end;
明白吗?
xflin 2004-10-18
  • 打赏
  • 举报
回复
怎么样自定义集合啊?
liuqifeiyu 2004-10-13
  • 打赏
  • 举报
回复
返回一个数组类型的不行吗?
hailang_zh 2004-10-13
  • 打赏
  • 举报
回复
自定义集合啊,什么都能返回的。
anbeel 2004-10-13
  • 打赏
  • 举报
回复
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;
xflin 2004-10-13
  • 打赏
  • 举报
回复
能不能给出具体例子,搞定后,再50分并立即结分
anbeel 2004-10-13
  • 打赏
  • 举报
回复
看看TList例子
xflin 2004-10-13
  • 打赏
  • 举报
回复
我要求返回的参数是不定的,我现在要做的是,返回符合条件的窗口句柄和窗口上的一个控件句柄,而且是一,一对应的,也就是说要返回类似一张二维表的东西,由于我并不知道符合条件的窗口有多少,所以我要求有多少就返少,该怎么做啊?最好不要使用全局变量。
first_lover 2004-10-13
  • 打赏
  • 举报
回复
先定义一个记录
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;

也就是将多个返回结果放在一个记录中,作为一个变量返回。
wycg_cnh20 2004-10-13
  • 打赏
  • 举报
回复
例子:
TYourTest=('12','123','3213');
TAssembly =Set of TYourTest;
function YourFunction :TAssemBly;
begin
..........................
end;
1_ 2004-10-13
  • 打赏
  • 举报
回复
可以通過全局變量實現。
beyondtkl 2004-10-13
  • 打赏
  • 举报
回复
那你就定义返回 record 或者

aaa(var return1...var returnN..) 做为【in/out】参数返回
wycg_cnh20 2004-10-13
  • 打赏
  • 举报
回复
当时你可以自己定义一个你自己想要的集合类型出来作为返回参数
wycg_cnh20 2004-10-13
  • 打赏
  • 举报
回复
是的,只能支持一个
xflin 2004-10-13
  • 打赏
  • 举报
回复
给全行吗?把代码给全行吗?
加载更多回复(3)
相关推荐
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-10-13 09:07
社区公告
暂无公告