自定义函数如下
Function hq_sum(var hh:array of String):Integer;
var i,tst:Integer;
begin
tst:= 0;
For i:= 0 To 5 do
tst:=tst+ CInt(hh(i));
result:=tst;
end;
end;
hh是个一维数组形参,为何不对?正确该如何写?另外怎么在程序中用数组实参调用?aaa:=hq_sum(bs(6))对么?
请高手指正。
Function hq_sum(var hh:array of String):Integer;
var i,tst:Integer;
begin
tst:= 0;
For i:= 0 To 5 do
tst:=tst+ CInt(hh(i));
result:=tst;
end;
end;
hh是个一维数组形参,为何不对?正确该如何写?另外怎么在程序中用数组实参调用?aaa:=hq_sum(bs(6))对么?
请高手指正。
解决方案 »
- 如何得知程序创建了新的窗口实例,并获取该窗口实例?
- 把分送光!idhttp无法登录网页,好像是被限制
- 要做一个B/S上用的activeX控件,能弹出模态窗口,格式是DLL。
- 怎样令WebBrowse支持Cookie?
- 为何在TDataModule 窗体中无法调用Tregsitry.
- 高手们,帮帮忙!!!马上结贴
- delphi7.0是不是没有quickreport这一项啊??
- 救助老大,有关combobox的特殊应用!
- DELPHI如何将 EXCEL,WORD 文件存入数据库。从数据库读取出来。
- edit中有一字符串例如'abcdef',怎样让用户不可以更改前两位'ab',后4位随意
- 如何自己做日历控件?
- QQ那样的栏目菜单怎么做的啊?
2.CInt如果不是自定义函数的话应该是strtoint
好象以前是写asp还是vb的,呵呵