Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持.

Generics.Collections 包含了以下实用类:
TList<T>
TQueue<T>
TStack<T>
TDictionary<TKey,TValue>
TObjectList<T>
TObjectQueue<T>
TObjectStack<T>
TObjectDictionary<TKey,TValue>

---

有了以上泛型的容器, 恐怕 Classes.TList 和 Contnrs 单元下的 TObjectList 等系列容器也就只为兼容存在了.

Generics.Collections.TList<T> 既然是泛型的, 那肯定应该容得下字符串列表, 本例就依此测试吧.

如果你对泛型不了解, 应先看看: http://www.cnblogs.com/del/archive/2008/08/14/1268258.html

---

本例效果图:

---

代码文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Edit1: TEdit;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;Button8: TButton;Button9: TButton;Button10: TButton;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Edit1Change(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button7Click(Sender: TObject);procedure Button8Click(Sender: TObject);procedure Button9Click(Sender: TObject);procedure Button10Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Generics.Collections; {Delphi 2009 新增的泛型容器单元}varList: TList<string>;  {定义一个泛型 TList 类, 这指定了要用于 string}str: string = 'Test';{建立}
procedure TForm1.FormCreate(Sender: TObject);
beginList := TList<string>.Create;Memo1.Clear;Edit1.Text := str;Button1.Caption := Button1.Caption + ' 显示';Button2.Caption := Button2.Caption + ' 添加';Button3.Caption := Button3.Caption + ' 插入';Button4.Caption := Button4.Caption + ' 删除1';Button5.Caption := Button5.Caption + ' 删除2';Button6.Caption := Button6.Caption + ' 查找';Button7.Caption := Button7.Caption + ' 排序';Button8.Caption := Button8.Caption + ' 翻转';Button9.Caption := Button9.Caption + ' 清空';Button10.Caption := Button10.Caption + ' 添加数组';
end;{释放}
procedure TForm1.FormDestroy(Sender: TObject);
beginList.Free;
end;procedure TForm1.Edit1Change(Sender: TObject);
beginif Edit1.Text <> '' then str := Edit1.Text;
end;{显示}
procedure TForm1.Button1Click(Sender: TObject);
vari: Integer;
beginMemo1.Clear;for i := 0 to List.Count - 1 doMemo1.Lines.Add(List[i]);  {List[i] = List.Item[i]}Text := Format('当前总数: %d', [List.Count]);
end;{添加}
procedure TForm1.Button2Click(Sender: TObject);
beginList.Add(str);Button1.Click; {刷新显示}
end;{插入, 譬如插入在最前面}
procedure TForm1.Button3Click(Sender: TObject);
beginList.Insert(0, str);Button1.Click;
end;{根据序号删除, 譬如删除第一个数据}
procedure TForm1.Button4Click(Sender: TObject);
beginList.RemoveAt(0);Button1.Click;
end;{根据内容删除, 譬如删除第一个数据}
procedure TForm1.Button5Click(Sender: TObject);
vars: string;
begins := List[0];List.Remove(s);Button1.Click;
end;{查找}
procedure TForm1.Button6Click(Sender: TObject);
varn: Integer;
beginn := List.IndexOf(str); {LastIndexOf 是从后面找; 也可用 List.Contains(str) 判断是否包含 str}if n = -1 thenShowMessage('没找到')elseShowMessageFmt('%s 是第 %d 个', [str, n+1]);
end;{排序}
procedure TForm1.Button7Click(Sender: TObject);
beginList.Sort;Button1.Click;
end;{翻转}
procedure TForm1.Button8Click(Sender: TObject);
beginList.Reverse;Button1.Click;
end;{清空}
procedure TForm1.Button9Click(Sender: TObject);
beginList.Clear;Button1.Click;
end;{添加数组}
procedure TForm1.Button10Click(Sender: TObject);
constarr: array[0..2] of string = ('CodeGear', 'Delphi', '2009');
beginList.Add('Embarcadero');List.AddRange(arr);Button1.Click;
end;end.

窗体文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 201ClientWidth = 349Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 0Top = 0Width = 121Height = 201Align = alLeftLines.Strings = ('Memo1')ScrollBars = ssBothTabOrder = 0ExplicitHeight = 206endobject Button1: TButtonLeft = 136Top = 13Width = 81Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 127Top = 44Width = 100Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject Button3: TButtonLeft = 127Top = 75Width = 100Height = 25Caption = 'Button3'TabOrder = 3OnClick = Button3Clickendobject Button4: TButtonLeft = 127Top = 106Width = 100Height = 25Caption = 'Button4'TabOrder = 4OnClick = Button4Clickendobject Button5: TButtonLeft = 127Top = 137Width = 100Height = 25Caption = 'Button5'TabOrder = 5OnClick = Button5Clickendobject Button6: TButtonLeft = 240Top = 44Width = 100Height = 25Caption = 'Button6'TabOrder = 6OnClick = Button6Clickendobject Button7: TButtonLeft = 240Top = 75Width = 100Height = 25Caption = 'Button7'TabOrder = 7OnClick = Button7Clickendobject Button8: TButtonLeft = 240Top = 106Width = 100Height = 25Caption = 'Button8'TabOrder = 8OnClick = Button8Clickendobject Button9: TButtonLeft = 240Top = 137Width = 100Height = 25Caption = 'Button9'TabOrder = 9OnClick = Button9Clickendobject Edit1: TEditLeft = 240Top = 15Width = 100Height = 21TabOrder = 10Text = 'Edit1'OnChange = Edit1Changeendobject Button10: TButtonLeft = 127Top = 168Width = 214Height = 25Caption = 'Button10'TabOrder = 11OnClick = Button10Clickend
end