理解 Delphi 的类(十) - 深入方法[21]

//给一个整型开放数组求和的函数
function MyFun(const arr: array of Integer): Integer;
vari: Integer;
beginResult := 0;for i in arr do Result := Result + i;
end;{测试1:}
procedure TForm1.Button1Click(Sender: TObject);
varnum: Integer;
beginnum := MyFun([1,2,3]);ShowMessage(IntToStr(num)); {6}
end;{测试2:}
procedure TForm1.Button2Click(Sender: TObject);
variArr: array of Integer;i,x: Integer;
beginSetLength(iArr, 10);for i := Low(iArr) to High(iArr) dobeginiArr[i] := i + 1;end;x := MyFun(iArr);ShowMessage(IntToStr(x)); {55}
end;

理解 Delphi 的类(十) - 深入方法[21] - 开放数组参数相关推荐

理解 Delphi 的类(十) - 深入方法[17] - 提前声明
为什么80%的码农都做不了架构师?>>> //要点17: 如果前面的方法要调用后面的方法, 后面的方法需要提前声明 function MyFunB(x: Integer): I ...
理解 Delphi 的类(十) - 深入方法[27] - 递归函数: 简单示例
为什么80%的码农都做不了架构师?>>> //所谓递归函数, 就是自己调用自己的函数, 先来个简单的例子:{递归调用的简单示例} procedure alert(i: Inte ...
理解 Delphi 的类(十) - 深入方法[23] - 重载
为什么80%的码农都做不了架构师?>>> {下面的函数重名, 但参数不一样, 此类情况必须加 overload 指示字;调用时, 会根据参数的类型和个数来决定调用哪一个;这就是 ...
理解 Delphi 的类(十) - 深入方法[28] - 递归函数实例: 搜索当前目录下的所有嵌套目录...
为什么80%的码农都做不了架构师?>>> //上面一个例子不能说明递归函数的本质, 直接来个实用的函数吧, 刚好要用.unit Unit1;interfaceusesWindo ...
理解 Delphi 的类(十) - 深入方法[9] - 调用时的括号
为什么80%的码农都做不了架构师?>>> //要点9: 没有参数的过程或函数, 在调用时可以省略 (); 也可以带着 function MyFun: string; begin ...
理解 Delphi 的类(十) - 深入方法[4] - 共同类型的参数的简化写法
//要点4: 多个相同类型的参数可以简化写法 function MyFun(str: string; x,y,z: Integer): string; beginResult := str + Int ...
理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法
为什么80%的码农都做不了架构师?>>> //要点13: 需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面 unit Unit1;inter ...
理解 Delphi 的类(十) - 深入方法[2] - 参数分割
//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割 procedure MyProc(i: Integer); beginShowMessage(IntToStr(i)); end; ...
理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数
为什么80%的码农都做不了架构师?>>> //要点15: 调用其他单元的函数 //包含函数的单元: unit Unit2;interfacefunction MyFun(x,y ...
理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
//抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代.{下面就定义了两个抽象方法} TMyClass = class(TObject)proce ...

理解 Delphi 的类(十) - 深入方法[21] - 开放数组参数

理解 Delphi 的类(十) - 深入方法[21] - 开放数组参数相关推荐

最新文章

热门文章