0

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

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

(1) Dictionary.Items['London'].Country -> 给出正确的值 "Dictionary.Items['London'].Country'

(2) 在 Edit1.Text 中输入 'London'，然后 Dictionary.Items[Edit1.Text].Country -> 给出错误“找不到项目”？

有人可以解释一下吗？

提前致谢。

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

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;
4

1 回答 1

1

解释是，与您声称的相反，Edit1.Text不等于'London'。也许字母大小写不匹配。或者有前导或尾随空格。

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

Assert(Edit1.Text='London');
于 2014-02-24T19:38:16.847 回答