如何使自定义函数有多个返回值? 我要用一个函数返回多个字符串参数,是否通过设置返回类型为数组型来实现。请高手给段代码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你用tstrings 等类型的参数不就可以了 可以用var参数procedure GetStrings(parm1,parm2,...:参数; var par1, par2,...:返回的参数);函数中给par1, par2等赋值就行了。procedure GetStrings(iTmp: Integer; var str1, str2; string);begin str1 := IntToStr(iTmp div 10); str2 :- IntToStr(iTmp mod 10);end;调用时GetStrings(12, strFirst, strSecond); 给你一段代码试过了function aaa:strs;begin setlength(result,100); result[0]:='1111'; result[1]:=('2222'); result[2]:=('3333'); result[3]:=('4444');end;procedure TForm1.Button1Click(Sender: TObject);begin showmessage(aaa[3]);end;要先定义strs = array of string; procedure GetStrings(Par:Tstringlist;Var Res:TstringList);begin...end;调用var P:Tstringlist; R:Tstringlist;begin try P:=Tstringlist.create; R:=Tstringlist.create; GetStrings(P,R); .. .. finally P.free; R.free; end;end; delphi 如何读dat文件到缓冲区? 怎么用DBNavigator修改由DBgrid显示出来的数据库里的数据?或者有其他方便的方法?急! Excel导入到ACCESS 求助:关于INI写二进制流 有关dephi中对象的实例克隆的问题.! 请教一个问题,如何关闭一个动态创建的窗体(通过点击窗体上的按钮 )?谢谢了! 怎样对已经加密的paradox数据库的表进行解密? 如何用BDE动态与后台数据库连接? 数据量小时,dbgrid中提交后出现重复记录是什么原因? 在线等!着急啊! 如何HTTP协议通过来上QQ 请教一个关于DBGrid控件的问题 如何实现Edit或DbEditd的日期输入?
procedure GetStrings(parm1,parm2,...:参数; var par1, par2,...:返回的参数);
函数中给par1, par2等赋值就行了。
procedure GetStrings(iTmp: Integer; var str1, str2; string);
begin
str1 := IntToStr(iTmp div 10);
str2 :- IntToStr(iTmp mod 10);
end;
调用时
GetStrings(12, strFirst, strSecond);
试过了function aaa:strs;
begin
setlength(result,100);
result[0]:='1111';
result[1]:=('2222');
result[2]:=('3333');
result[3]:=('4444');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(aaa[3]);
end;
要先定义
strs = array of string;
begin
.
.
.
end;
调用
var
P:Tstringlist;
R:Tstringlist;
begin
try
P:=Tstringlist.create;
R:=Tstringlist.create;
GetStrings(P,R);
..
..
finally
P.free;
R.free;
end;end;