Ok, vielen Dank!
Hier wurde das auch schon mal behandelt:
http://www.delphipraxis.net/184801-d...ictionary.html ("Compare" gibt es allerdings nicht zum überschreiben.)
Grundsätzlich funktioniert es jetzt.
Aber was mir noch nicht ganz klar ist, ist was ich als GetHashCode angeben soll.
Macht der Comparer nochmal etwas mit meinem Result oder muss ich selbst etwas Sinnvolles bereitstellen.
Mein fC ist ein globaler Zähler, der für jede neue
Guid hochgezählt wird. Wird 10.000 erreicht, wird er wieder auf 0 gesetzt.
Ist das Dictionary so intelligent, dass es damit gut zurecht kommt?
Dann würde ich es dabei belassen.
Angenommen fC würde nur 3 mögliche Werte haben wäre es als HashCode ungeeignet, da das Dictionary dann nur 3 Gruppen als Vorsortierung für z.B. 1Mio Einträge hätte ... richtig?
Delphi-Quellcode:
TGuidEqualityComparer = class(TEqualityComparer<TGuid>)
public
function Equals(const Left, Right: TGuid): Boolean; override;
function GetHashCode(const Value: TGuid): Integer; override;
end;
{ TGuidEqualityComparer }
function TGuidEqualityComparer.Equals(const Left, Right: TGuid): Boolean;
begin
Result := (Left = Right);
end;
function TGuidEqualityComparer.GetHashCode(const Value: TGuid): Integer;
begin
Result := Value.fC; // 0..99999
end;
...
var
GC: IEqualityComparer<TGuid>;
begin
GC := TGuidEqualityComparer.Create;
fDict := TDictionary<TGuid, IsoGuid>.Create(GC);