{该文首发于博客园 滔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 更新时间: