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

最新推荐文章于 2024-04-07 06:36:38 发布

liangpei2008

最新推荐文章于 2024-04-07 06:36:38 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：语言与基础算法文章标签： constructor destructor function class null 测试

本文链接：https://blog.youkuaiyun.com/liangpei2008/article/details/5202046

语言与基础算法专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个自定义的TLookupList组件，用于存储键值对。该组件使用TList来实现，支持任意类型的键和值，适用于小规模的数据存储需求。文章提供了组件的源代码及一个简单的测试示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

TLookupList = class(TObject) private FList: TList; public constructor Create; destructor Destroy; override; procedure Add(const AKey, AValue: Variant); procedure Clear; function ValueOfKey(const AKey: Variant): Variant; end; { TLookupList } constructor TLookupList.Create; begin FList := TList.Create; end; destructor TLookupList.Destroy; begin if FList <> nil then Clear; FList.Free; end; procedure TLookupList.Add(const AKey, AValue: Variant); var ListEntry: PLookupListEntry; begin New(ListEntry); ListEntry.Key := AKey; ListEntry.Value := AValue; FList.Add(ListEntry); end; procedure TLookupList.Clear; var I: Integer; begin for I := 0 to FList.Count - 1 do Dispose(PLookupListEntry(FList.Items[I])); FList.Clear; end; function TLookupList.ValueOfKey(const AKey: Variant): Variant; var I: Integer; begin Result := Null; if not VarIsNull(AKey) then for I := 0 to FList.Count - 1 do if PLookupListEntry(FList.Items[I]).Key = AKey then begin Result := PLookupListEntry(FList.Items[I]).Value; Break; end; end;

测试：

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