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

转载于 2013-10-26 23:24:00 发布 · 373 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/GodPan/p/3390181.html

本文介绍了在Delphi中如何正确地创建、使用并释放TList。通过一个具体的示例，展示了如何在函数内部创建TList对象，并将其作为函数的返回值。此外，还解释了在使用完毕后释放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.