Question

我有一个函数，我存储了一些键值对，当我迭代它们时，我得到两次错误：[dcc32错误] App.pas（137）：E2149类没有默认属性。这是我的代码的一部分：

function BuildString: string;
var
  i: Integer;
  requestContent: TDictionary<string, string>;
  request: TStringBuilder;
begin
  requestContent := TDictionary<string, string>.Create();

  try
    // add some key-value pairs
    request :=  TStringBuilder.Create;
    try
      for i := 0 to requestContent.Count - 1 do
      begin
        // here I get the errors
        request.Append(requestContent.Keys[i] + '=' +
          TIdURI.URLEncode(requestContent.Values[i]) + '&');
      end;

      Result := request.ToString;
      Result := Result.Substring(0, Result.Length - 1); //remove the last '&'
    finally
      request.Free;
    end; 
  finally
    requestContent.Free;
  end;
end;

我需要收集字典中每个项目的信息。我该如何解决？

Answer 1

字典类的Keys和Values属性分别为TDictionary<string, string>.TKeyCollection和TDictionary<string, string>.TValueCollection类型。这些类派生自TEnumerable<T>，不能通过索引进行迭代。但是你可以迭代Keys，或者Values，而不是后者对你有用。

如果迭代Keys，您的代码可能如下所示：

var
  Key: string;
....
for Key in requestContent.Keys do
  request.Append(Key + '=' + TIdURI.URLEncode(requestContent[Key]) + '&');

然而，这是低效的。既然你知道你想要键和匹配值，你可以使用字典的迭代器：

var 
  Item: TPair<string, string>; 
....
for Item in requestContent do 
  request.Append(Item.Key + '=' + TIdURI.URLEncode(Item.Value) + '&');

对迭代器比上面的第一个变量更有效。这是因为实现细节意味着对迭代器能够在没有：

的情况下迭代字典

计算每个密钥的哈希码，
当哈希码发生冲突时执行线性探测。

Delphi TDictionary迭代

1 个答案: