delphi - 如何处理重复的 TDictionary错误
问题描述
如何处理列表中重复值的错误。值被输入输入并输入到列表中。如果有重复,则重命名该值。例如:
procedure TForm2.Button1Click(Sender: TObject);
var
CollectionNameTable : TDictionary<string, Integer>;
begin
CollectionNameTable := TDictionary<string, Integer>.Create();
try
CollectionNameTable.Add('One', 1);
CollectionNameTable.Add('TWO', 2);
CollectionNameTable.Add('TWO', 3);
CollectionNameTable.Add('FOUR', 4);
except on E: EStringListError do
begin
ShowMessage( 'Дубликат!!!');
CollectionNameTable.Add('DOUBLE_FREE', 3);
end;
end;
CollectionNameTable.Clear;
CollectionNameTable.Free;
end;
解决方案
推荐阅读
- python - 计算由两列过滤的平均数据框
- java - 如何配置java调用批处理,自动确认“你想让这个编对这台计算机进行修改......”?
- java - UDP 套接字在 reply.getData 上需要帮助
- python - 如何将 csv 文件上传到 Dash 以创建网络图?
- android - 接近传感器在其 LifeCycleOwner 为 onDestroy 时保持注册状态
- angular - 我创建了一个表单,在获取数据后将其存储在数组中,并希望在表单下方的表格中显示
- javascript - 在chart.js中更改图例框的颜色和x网格线的颜色
- c# - Equivalent AES encryption code in c# .net core
- epplus - 如何在新的 EPPlus Excel 包中实现 SetBorder 和 VAlign HAlign
- python - 在 django 中重新加载虚拟环境