TDictionary mit zusammengesetztem Schlüssel

[TurboMagic]

Hallo,

irgendwo biege ich falsch ab...

Delphi-Quellcode:

type
  TStatisticsKey = record
    ProductID        : Integer;
    ConsumptionPlace : TConsumptionPlace;
  end;


function TStatisticsProductDict.IncSubID(ProductID         : Integer;
                                         ConsumptionPlace  : TConsumptionPlace): Integer;
var
  Key  : TStatisticsKey;
  Pair : TPair<TStatisticsKey, Integer>;
begin
  Key.ProductID        := ProductID;
  Key.ConsumptionPlace := ConsumptionPlace;

  if FItems.ContainsKey(Key) then
  begin
    Pair   := FItems.ExtractPair(Key);
    Result := Pair.Value + 1;

    FItems.Add(Key, Result);
  end
  else
  begin
    FItems.Add(Key, 0);
    Result := 0;
  end;
end;

FItems ist ein TDictionary<TStatisticsKey, Integer>
Das Problem ist jetzt, dass beim ersten Aufruf zwar ein Eintrag zu FItems hinzugefügt wird,
beim nächsten Aufruf mit genau der selben ProductID und Consumption Place findet ContainsKey
diesen nicht und fügt daher einen weiteren Eintrag mit dem Schlüssel hinzu.

Was mache ich falsch?

[Olli73]

Was ist denn TConsumptionPlace?

[TurboMagic]

Hallo,

das ist eine Enumeration, die 2 verschiedene Werte hat.

[Uwe Raabe]

Müsste es nicht FItems.AddOrSet(Key, Result); heißen?

Aber das ist nicht der Grund für das Key-Problem. Versuch mal ein FillChar(Key, Sizeof(Key), 0); bevor du die Record-Felder setzt.

[Olli73]

Eventuell brauchst du einen comparer, falls du noch keinen hast.

[himitsu]

Integer+Enum (also nichts mit Pointern) sollte problemlos mit dem Default-Comparer möglich sein,
aber ja, ein eigener Comparer kann hier auch helfen.

Zitat von Uwe Raabe:

Versuch mal

oder via {$MinEnumSize 4} den Enum vergrößern, damit es keine FillBytes gibt.
Oder packed record , aber vom Speicherzugriffstempo her, wäre es 0-gefüllt schneller.

[TurboMagic]

Halo,

packed record würde funktionieren.
Aber sehr wahrscheinlich entferne ich den ganzen Mechanismus weil mir
vermutlich eine noch einfachere Idee gekommen ist.