傻猫网络日志
本博客记录傻猫的生活、工作和学习，并与大家一起分享快乐.
Delphi函数返回多个值
该日志由 samool 发表于 2007-10-11 4:49 PM
今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，原来自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。
可以函数过程中设定返回数组的大小，SetLength (result,5)就可以。
delphi代码
- type
- k=array of integer;
- function abc(i:integer):k;
- var
- j:integer;
- begin
- SetLength (result,5);
- for j:=0 to i do
- result[j]:=j;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- self.Caption := inttostr(abc(5)[5]);
- end;
网摘：
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=logo}
相关文章： (最多只显示8条记)
如何判断按下的是回车键? (浏览：1067, 评论：0)
Borland把Delphi卖掉了 (浏览：846, 评论：0)
Delphi常用的函数库 (浏览：1250, 评论：0)
Delphi如何开发游戏外挂 (浏览：1584, 评论：0)
Delphi大富翁论坛离线数据大全 (浏览：1241, 评论：0)
c#检查字符串是否为数字 (浏览：1510, 评论：0)
汇编级超快字符串替换函数 (浏览：1727, 评论：0)
IsNumeric 判断字符串是否为数字 (浏览：1602, 评论：0)
Borland把Delphi卖掉了 (浏览：846, 评论：0)
Delphi常用的函数库 (浏览：1250, 评论：0)
Delphi如何开发游戏外挂 (浏览：1584, 评论：0)
Delphi大富翁论坛离线数据大全 (浏览：1241, 评论：0)
c#检查字符串是否为数字 (浏览：1510, 评论：0)
汇编级超快字符串替换函数 (浏览：1727, 评论：0)
IsNumeric 判断字符串是否为数字 (浏览：1602, 评论：0)
发表评论：( 来了就留个脚印吧！你的参与是我最大的动力！)
