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