{该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明}

Delphi XE 泛型 容器[1] Tlist<T>

uses
  System.Generics.Collections;  //泛型容器单元

包含了以下类( 来自 XE10 ):

• TArray
• TEnumerator<T>
• TEnumerable<T>
• TList<T>
• TThreadList<T>
• TQueue<T>
• TStack<T>
• TDictionary<TKey,TValue>
• TObjectList<T>
• TObjectQueue<T>
• TThreadedQueue<T>

使用示例：

type
  TSClient = class(TObject)          //TObject 是 System 单元中定义的第一个类。
    IP,Name        : String;
    Listk    : Integer;
  end;

var
  f_Lists:TList<TSClient>;      //定义泛型变量

//创建

f_Lists:=TList<TSClient>.Create;

//添加

var
  fClient:TSClient;
begin
  fClient:=TSClient.Create;
  fClient.IP:=Edit1.Text;
  fClient.Name:=Edit2.Text;
  fClient.Listk:=99;
  f_Lists.Add(flist); //添加 
end;

//定位数据

fClient:=f_lists.Items[i];
Label1.Text:=fClient.Name +'  '+ fClient.IP + '  '+ fClient.Listk.ToString;

//删除

f_Lists.Delete(i);

 

 

 

创建时间：2020.06.08　　更新时间：