Delphi函数返回数组之使用TList参数

要点:

1.使用TList的时候，首先要用TList<Integer>.Create初始化

2.TList成员函数Add是增加一项，Count是获取项数

3.函数里面用到了Var，来直接操作外层函数的TList。

 

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

{函数var参数TList}
Procedure MyFunc10();
{插入函数}
    procedure TemFunc(var TheList : TList<Integer>);
    begin
      TheList.Add(1);
      TheList.Add(2);
      TheList.Add(2);
    end;
{变量}
var
  MyList : TList<Integer>;
  I: Integer;
begin
 MyList := TList<Integer>.Create; //初始化TList
 TemFunc(MyList);  //调用
 for I := 0 to MyList.Count -1 do
 begin
   Writeln(MyList[I]);//输出
 end;
 MyList.Free;//释放
end;

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