Duplicate Values in TDictionary

[bernhard_LA]

Problem #1 mit den Duplikaten ist gelöst; Verbleibt die Frage warum er Die Elemente dann nicht in meinem Wörterbuch findet ?

Delphi-Quellcode:

  dict: TDictionary<TElement, TFrequencyList>;
  Myelement: TElement;
  FCount: TFrequencyList;
begin

  dict := TDictionary<TElement, TFrequencyList>.create;

  /// code version #1
  Myelement := TElement.create('maier', 0);
  FCount := TFrequencyList.create(6);
  FCount.data[1] := 99;
  dict.Add(Myelement, FCount);

  /// code version #2
  dict.Add(Telement.create('mueller', 1), TFrequencyList.create(5));

  // Find some key  -> hier sollte  man nix finden ....
  Myelement := TElement.create('maier', 99);
  if dict.TryGetValue(Myelement, FCount) then
  begin
    ShowMessage('Found it!: ' + IntToStr(FCount.data[1]));
  end;

  ///  gibt den hier gibt es  doch :-(   ????????????????????????
  Myelement := TElement.create('maier', 0);
  if dict.TryGetValue(Myelement, FCount) then
  begin
    ShowMessage('Found it!: ' + IntToStr(FCount.data[1]));
  end;

end;