我现在想调用一个已知函数,函数如下
function Call(a:array of string;b:array of byte;var c:array of string):integer;我定义了一个 aa:array of string ; bb:array of byte; cc:array of string;
然后对aa、bb、cc进行赋值,aa[0]:=..,aa[1]:=.., ……调用 Call(aa,bb,cc);运行报错。
小弟初学delphi,请高手指教。
function Call(a:array of string;b:array of byte;var c:array of string):integer;我定义了一个 aa:array of string ; bb:array of byte; cc:array of string;
然后对aa、bb、cc进行赋值,aa[0]:=..,aa[1]:=.., ……调用 Call(aa,bb,cc);运行报错。
小弟初学delphi,请高手指教。
解决方案 »
- 这段代码findfrirst 函数字符型不认吗?
- 数据库安全性问题
- 怎么判断SQL数据库的安装程序已经安装完成
- MMTool 控件的 demos 程序啊!急求啊!
- [散分贴]散分是件有意义的事情[6:30结]
- 关于上传和下载
- 读vf数据库表中的时间字段?
- radiobutton怎样用编程来选定按钮
- 要做一件费时间的事,怎么设置progressbar的初始值和最终值啊?要做的这件事跟数值没关系,我真是想不通该怎么作了。
- DCOM 编程二问?
- 高手请进!!!一直没有解决呀!!跪请!急呀!!!!!!!!
- 为何我安装OCX组件时一编译就出现[Fatal Error] JvResources.pas(31): File not found: 'jvcl.inc'的错误?如何改正?
静态数组作为一种确定的类型,例:
type
TArr = array[0..21] of Integer;
end;
var
A: TArr;
function Call(tmp: TArr): Integer;
var
i, Count: integer;
begin
for i := 0 to 21 do
begin
Count := Count + tmp[i];
end;
end;开放数组参数
function call(const A: array of Integer): Integer;
var
i, Count: integer;
begin
for i := 0 to High(A) do
begin
Count := Count + tmp[i];
end;
end;prcedure Form1.Button1Click(Sender: TObject);
var
Test: array of Integer;
Count: integer;
begin
SetLength(Test,10);
Test[0] := 1;
Test[1] := 2;
....
ShowMessage(InttoStr(Call(Test));
end;