[原創]Delphi XE 泛型 容器[1] Tlist 使用

{該文首發於博客園 滔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　　更新時間：