小数据量的Key-Value查找类的实现

平时写程序时经常要把一些Key与Value保存起来，但一般数据量都不大，故不想用TStringHash来做。而用TStringList来做，还要写一个"="，挺别扭！而且数据类型还有限制。自己从VCL中找了一段，感觉挺好用的，以后用它玩一玩！不过对Key值的搜索采用遍历方式，数据量大就慢了，建议采用HashTable。

注:Key与Value均不受数据类型限制！

var
Demo:TLookupList;
begin
Demo:=TLookupList.Create;
try
Demo.Add('aa','bbb');
ShowMessage(Demo.ValueOfKey('aa'));
finally
Demo.Free;
end;
end;

View Code