TStringBucketList Fehler bei Bereichsüberprüfung

[Hawkeye219]

Ich habe noch nicht mit der Klasse TCustomBucketList gearbeitet und nur einen Blick in die Online-Hilfe geworfen. Ich vermute, daß du (z.B. im Constructor deiner abgeleiteten Klasse) die Eigenschaft TCustomBucketList.BucketCount setzen mußt, da sonst Length(Buckets) immer den Wert 0 liefert. Dies würde auch den "Division durch Null"-Fehler erklären. Die HashString-Funktion könnte dann so aussehen:

Delphi-Quellcode:

function TStringBucketList.HashString(const Value: string): Longint;
begin
  Result := HashOf(Value) mod BucketCount;
end;

Wie gesagt - alles ohne Garantie, da ich die Klasse nicht wirklich kenne.

Gruß Hawkeye