AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TDictionary mit zusammengesetztem Schlüssel

Ein Thema von TurboMagic · begonnen am 5. Nov 2024 · letzter Beitrag vom 6. Nov 2024
Antwort Antwort
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.936 Beiträge
 
Delphi 12 Athens
 
#1

TDictionary mit zusammengesetztem Schlüssel

  Alt 5. Nov 2024, 20:39
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?
Grüße
TurboMagic
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
736 Beiträge
 
#2

AW: TDictionary mit zusammengesetztem Schlüssel

  Alt 5. Nov 2024, 20:54
Was ist denn TConsumptionPlace?
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.936 Beiträge
 
Delphi 12 Athens
 
#3

AW: TDictionary mit zusammengesetztem Schlüssel

  Alt 5. Nov 2024, 20:56
Hallo,

das ist eine Enumeration, die 2 verschiedene Werte hat.
Grüße
TurboMagic
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.430 Beiträge
 
Delphi 12 Athens
 
#4

AW: TDictionary mit zusammengesetztem Schlüssel

  Alt 5. Nov 2024, 21:01
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
736 Beiträge
 
#5

AW: TDictionary mit zusammengesetztem Schlüssel

  Alt 5. Nov 2024, 21:05
Eventuell brauchst du einen comparer, falls du noch keinen hast.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.009 Beiträge
 
Delphi 12 Athens
 
#6

AW: TDictionary mit zusammengesetztem Schlüssel

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

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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 5. Nov 2024 um 21:09 Uhr)
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.936 Beiträge
 
Delphi 12 Athens
 
#7

AW: TDictionary mit zusammengesetztem Schlüssel

  Alt Gestern, 18:08
Halo,

packed record würde funktionieren.
Aber sehr wahrscheinlich entferne ich den ganzen Mechanismus weil mir
vermutlich eine noch einfachere Idee gekommen ist.
Grüße
TurboMagic
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz