请问怎样用静态数组做函数参数呢?源码如下:声明:
type
TByteArray = array of byte; function GetSum(aArray:TByteArray):integer;调用:
procedure p1;
var
a:array[1..10] of byte;
b:array[1..20] of byte;
begin
GetSum(a); //error: Array and TByteArray
GetSum(b); //error
end;
type
TByteArray = array of byte; function GetSum(aArray:TByteArray):integer;调用:
procedure p1;
var
a:array[1..10] of byte;
b:array[1..20] of byte;
begin
GetSum(a); //error: Array and TByteArray
GetSum(b); //error
end;
解决方案 »
- 如何用Timage处理非位图呢
- 怎样为dxbutton设置快捷键?
- Tserversocket问题?如果多个客户端同时向服务器端发送数据,用非阻塞型么?要自己写多线程么?
- 哪位知道如何在程序运行时动态更新SeSkinEngine的界面?
- 大家好,小妹有一个问题请教一下,有没有简单的C/S程序的源代码?谢谢了!
- 如何用类的继承来实现这个输入检测
- 诚聘DELPHI高手——一个在深圳科技园的公司
- 我把查询结果导出到Memo中去,然后再保存为.csv文件。。。
- help:怎样进行信息存储?
- 急!! 100分求winsocket传送20K左右二进制数据方法
- MMI开发流程具体是怎样的啊,主要用在哪方面?
- 请教控件OpenDialog控件的使用
function TForm1.GetSum(const arr: array of Byte): Integer;
var
i: Integer;
begin
Result := 0;
for i := Low(arr) to High(arr) do
begin
Result := Result + arr[i];
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
arr: array[1..10] of Byte;
i: Integer;
sum: Integer;
begin
sum := 0;
for i := Low(arr) to High(arr) do
arr[i] := i; sum := GetSum(arr);
Edit1.Text := IntToStr(sum);
end;
type
TByteArray = array of byte;
然后用TByteArray来定义变量