五、Delphi 2009 泛型容器单元(Generics.Collections): TDictionary<T>

TDictionary 类似哈希表.

dfm
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 165
ClientWidth = 275
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 133
Height = 165
Align = alLeft
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Memo1')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
ExplicitHeight = 176
end
object Button1: TButton
Left = 139
Top = 40
Width = 128
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 139
Top = 71
Width = 128
Height = 25
Caption = 'Button2'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 139
Top = 102
Width = 128
Height = 25
Caption = 'Button3'
TabOrder = 3
OnClick = Button3Click
end
object Edit1: TEdit
Left = 139
Top = 8
Width = 40
Height = 21
TabOrder = 4
Text = 'Edit1'
end
object Edit2: TEdit
Left = 185
Top = 8
Width = 81
Height = 21
TabOrder = 5
Text = 'Edit2'
end
object Button4: TButton
Left = 139
Top = 133
Width = 128
Height = 25
Caption = 'Button4'
TabOrder = 6
OnClick = Button4Click
end
end