开放数组作参数Demo

最新推荐文章于 2023-02-15 11:47:56 发布

seagull327

最新推荐文章于 2023-02-15 11:47:56 发布

阅读量535

点赞数

分类专栏：函数&过程 Api 数组

本文链接：https://blog.csdn.net/haiou327/article/details/8526010

版权

函数&过程同时被 3 个专栏收录

39 篇文章 0 订阅

订阅专栏

Api

30 篇文章 0 订阅

订阅专栏

数组

8 篇文章 0 订阅

订阅专栏

type
  TdyArr = array of Integer;

function myFunc(var dyArr: TdyArr): integer;
var
  i, d: Integer;
begin
  Result := 2 * dyarr[0];
  for i := Low(dyarr) to High(dyArr) do
    Result := Result - dyArr[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DyArr: TdyArr;
begin
  SetLength(DyArr, 3);
  DyArr[0] := -1;
  DyArr[1] := 4;
  DyArr[2] := 18;
  Memo1.Lines.Add(IntToStr(myFunc(DyArr)))
end;