要点:
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.