TDictionary - 无效键答案

【问题标题】：TDictionary - invalid keyTDictionary - 无效键
【发布时间】：2009-03-12 15:42:06
【问题描述】：

我有这样的代码：

type
  TMyDictionary = TDictionary<int, int>;

var
  myDict: TMyDictionary;
  k, v: integer;

  // code to fill the dictionary

  for k in myDict.Keys do
  begin
     v := myDict.Items[k];

     // other stuff
  end;

我随机看到 'v := myDict.Items[k];' 上抛出异常其中说 k 无效。

其他人看到了吗？

【问题讨论】：

标签： delphi delphi-2009 tdictionary

【解决方案1】：

您是否在标记为// other stuff 的部分内修改myDict？

【讨论】：

我没有在循环内修改 myDict。我遍历每个字典以找到最大的值。

【解决方案2】：

查看 CodeCentral，我发现了许多针对 TDictionary 的错误，特别是支持 for ... in ... 构造的枚举器。

【讨论】：

【解决方案3】：

尝试用一种仅使用局部变量的方法重现此问题。

可能是您使用了来自 2 个不同线程的变量，或者您更新了 myDict 中的元素。

我将尝试解释我关于复制它的答案：

您应该创建一个可以在另一台计算机上运行并显示您遇到的错误的方法。

例如（问题：我遇到了除以零异常）：

var
   i : integer;
begin
   i := 3;
   while (i <= 0) do
   begin
     Writeln(FloatToStr(20/i));
     Dec(i);
   end;
end

如果您在计算机上运行此程序，人们将得到除以零的异常。所以我能够重现这个问题。尝试创建一个尽可能简单的 sn-p，以便以一致的方式重现您遇到的问题。

【讨论】：

如你所描述。单一方法。只有一根线。我在循环中所做的只是寻找最大的“v”并将其存储在局部变量中。
我的意思是，尝试制作一个示例程序来重现它，并在此处发布，以便其他人可以查看您的示例代码。
这是完整的循环：for k in fcm.Keys do begin try v := fcm.Items[k];如果 v > max 然后开始 Result := k;最大值：= v；结尾;除了继续；结尾;结束;