Delphi函数返回数组之TList函数返回

要点:

1.在内层函数使用TList的时候，也需要Create创建

2.使用完毕之后，要记得Free

3.一个函数是可以写在另外一个函数里面的

 

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

{函数返回TList}
procedure MyFunc11();
    function TemFunc():TList<Integer>;
    var
      MyList : TList<Integer>;
    begin
      MyList := TList<Integer>.Create;
      MyList.Add(31);
      MyList.Add(21);
      Result := MyList; //返回TList
      MyList.First;     //释放
    end;
var
  List : TList<Integer>;
  I: Integer;
begin
  List := TList<Integer>.Create;//初始化
  List := TemFunc();//TList赋值
  for I := 0 to List.Count - 1 do Writeln(List[I]);
  List.Free; //释放
end;

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