Delphi TDictionary字典类

一帆风顺的你 發表於 2024-3-12 20:07:00

TDictionary 是一个开放哈希表，支持泛型，并提供了以下常用属性和方法：
属性：
Count：返回字典中元素的数量。 Keys：返回字典中所有键所组成的动态数组。 Values：返回字典中所有值所组成的动态数组。
方法：
Add：向字典中添加一个键和其对应的值。 Clear：清空字典中的所有元素。 ContainsKey：判断字典中是否包含指定的键。 ContainsValue：判断字典中是否包含指定的值。 Remove：从字典中删除指定的键以及对应的值。 TryGetValue：尝试从字典中获取指定键所对应的值。 GetEnumerator：返回一个用于枚举字典中元素的对象（TDictionary<_,_>.TPairEnumerator 类型）。
除此之外，TDictionary 还提供了一些其他方法和事件，如 `OnChange`, `TrimExcess`, `IndexOfKey` 和 `IndexOfValue`。具体用法可以参考 Delphi 文档或自行搜索。
声明与创建时,需要指明K与V的数据类型,比如:
<div class="cnblogs_code">
<pre>var
dic: TDictionary<string, integer>;
begin
dic := TDictionary<string, Integer>.Create;
end;</pre>
<div> </div>
</div>
示例一:对数据(数组)去重.以下代码实现了对数组元素的去重:
<div class="cnblogs_code">
<pre>// RemoveDuplicates 函数接受一个字符串数组作为输入，使用字典来记录数组中的唯一元素，并返回去重后的数组。
function RemoveDuplicates(const arr: TArray<string>): TArray<string>;
var
dic: TDictionary<string, Boolean>; // 声明 TDictionary 用于记录唯一元素，值为 Boolean 表示只需记录键而不需值
value: string; // 用于遍历输入数组中的元素
begin
dic := TDictionary<string, Boolean>.Create; // 创建字典
try
for value in arr do // 遍历输入数组
begin
 if not dic.ContainsKey(value) then // 如果字典中不包含当前值
 begin
 dic.Add(value, True); // 将当前值添加到字典中，值设置为 True
 end;
end;

Result := dic.Keys.ToArray; // 将字典的键（唯一元素）转换为数组并返回
finally
dic.Free; // 释放字典对象
end;
end;</pre>
</div>
注意,重复添加字典中已存在的KEY 会报错,所以需要用ContainsKey方法来判断一下当前KEY是否已经存在,如果没有再添加进字典.
上面的红字部分代码稍微修改一下,也可以用来对相同key的值的累加:
<div class="cnblogs_code">
<pre>if dic.ContainsKey(sKey) then
dic := dic + SuNumber
else
dic.Add(sKey, SuNumber);</pre>
</div>
示例二: 对字典进行排序.这里注意一下,字典是一个开放哈希表,无法直接排序.
<div class="cnblogs_code">
<pre>function TForm2.SortDic(dic: TDictionary<string, integer>): TStringList;
begin
var sl := TStringList.Create;
try
for var k in dic.keys do
begin
 sl.Add(k + '@' + IntToStr(dic));
end;
sl.Sorted := true;　　//对TStringList进行自动排序
finally
result := sl;
end;
end;

//使用

var sl:=TStringList.Create;
sl:=SortDic(dic)</pre>
</div>
上面的代码,把字典里的K,V用"@"符号拼接了起来,塞进一个TStringList类里.字典不可以排序,但是TStringList可以啊,只是在使用里,需要SPLIT一下元素才行
<div class="cnblogs_code">
<pre>sl := SortDic(dic);
k := 2;
for var key in sl do
begin
var temparr := key.Split(['@']);
ws2.range['E' + inttostr(k) + ':K' + inttostr(k)].value := VarArrayOf(,temparr[5], temparr[1], temparr[2], '新刀具区', 0, temparr[4]]);
k := k + 1;
end;</pre>
</div>
上面这段代码是把TStringList里面的数据写进EXCEL单元格里. 
来源：https://www.cnblogs.com/yoooos/p/18069111

頁: [1]

琼殿技术论坛's Archiver

Delphi TDictionary字典类