Question

我正在使用embarcadero样本测试TDictionary（ http://docwiki.embarcadero.com/CodeExamples/XE5/en/Generics_Collections_TDictionary_%28Delphi%29 ）

创建和添加键和值没问题。但是，当我尝试使用键值“伦敦”访问该表时：

（1）Dictionary.Items ['London']。国家 - ＆gt;给出正确的值“Dictionary.Items ['London']。Country'

（2）在Edit1.Text中输入'London'，然后 Dictionary.Items [Edit1.Text] .Country - ＆gt;错误“找不到项目？”

有人可以解释一下吗？

提前致谢。

//////////////////////////////////// ///示例代码

var Dictionary: TDictionary<String, TCity>;
    City, Value: TCity;
    Key: String;


begin
  Dictionary := TDictionary<String, TCity>.Create;
  City := TCity.Create;
  { Add some key-value pairs to the dictionary. }
  City.Country := 'Romania';
  City.Latitude := 47.16;
  City.Longitude := 27.58;
  Dictionary.Add('Iasi', City);

  City := TCity.Create;
  City.Country := 'United Kingdom';
  City.Latitude := 51.5;
  City.Longitude := -0.17;
  Dictionary.Add('London', City);

  City := TCity.Create;
  City.Country := 'Argentina';
  { Notice the wrong coordinates }
  City.Latitude := 0;
  City.Longitude := 0;
  Dictionary.Add('Buenos Aires', City);

  showmessage(Dictionary.Items['London'].Country); // This One is OK

  // now using Edit1.Text where I put 'London'
  Showmessage(Dictionary.Items[Edit1.Text].Country); // This return to error message (Item not found)


  Dictionary.Clear;
  Dictionary.Free;
  City.Free;

end;

Answer 1

解释是，与您声明的内容相反，Edit1.Text不等于'London'。也许这封信不符合。或者有前导或尾随空格。

添加断言以验证我是否正确：

Assert(Edit1.Text='London');

访问字典项

1 个答案: