Delphi让函数返回数组

要点:

1.给函数传入一个Var的数组变量，然后在函数里面设置数组长度，然后按需要返回。

2.Low是取数组的下标最小的成员，High是取数的先最大的成员

 

program MyPoint;  //指针详解
{$APPTYPE CONSOLE}
uses
  SysUtils,windows,Generics.Collections ;

type
  TArray = array of string;//字符串数组

{函数返回数组}
procedure MyFunc9();
{功能函数}
    procedure MyArrFunc(var MyArr : TArray);
    var
      i    : integer;
    begin
      SetLength(MyArr, 50);//需要设置长度
      for I := 0 to 50 do MyArr[i] := IntToStr(I); //赋值
    end;
{变量}
var
  TheArr : TArray;
  i  : integer;
begin
  TheArr := nil;  //初始化一下
  MyArrFunc(TheArr);//给数组赋值
  for i := Low(TheArr) to High(TheArr) do //遍历
    Writeln(TheArr[i]); //输出
end;

{main主函数}
begin
 MyFunc9();
 Readln;//回车退出
end.