SOFT FOR YOUСаша, пройдись по коду, везде ли я поставил инициализацию/финализацию?
По идее нужны нотификаторы как в стандартном TDictionary. Хотя бы на удаление и замену (в оригинале удаление+добавление)

Похоже надо кое-что прояснить.

Идея описать другие хеш-функции сообществу родилась по трем причинам:
1. Мне показалось, что в ходе обсуждения начала формироваться мысль, что каноническая реализация Седжвика - наше все. На самом деле Седжвик - это целое семейство функций, которое можно подстроить под язык и множество слов. Я порулил только одним параметром, но идея должна быть понятна.
2. Мне показалось, что идея простоты хеш-функции некоторыми участниками дискуссии возводится в абсолют и они несколько хаотично ей следуют. Хотя в целом верно, но давайте использовать хотя бы школьные знания, если не хотим читать теорию. Отсюда берется вторая хеш-функция.
3. Хеш-функции имеют 2 главных применения - сравнение данных и поиск данных. Наиболее просто продемонстрировать достоинства и недостатки хеш-функций можно на хеш-таблицах. Отсюда вытекает вторая часть статьи.

На самом деле в своей работе я никогда не использовал хеш-таблиц в том виде, как там описано. Иногда надо было надо хранить только строки или только числа (без объектов). Иногда именованные объекты (имя не снаружи а внутри объекта) иногда объекты с идентификаторами. Так что класс TShaStringDictionary реализован только для демонстрации идеи, и я серьезно подумываю, чтобы его заменить, скажем, классом TShaNamedObjectDictionary. Так что все мои применения самописных подобий словарей чаще всего сводились к следующему
1. Создать контейнер заданной емкости.
2. Наполнить (возможно с переаллокациями).
3. Что-то много искать.
4. Очистить (обычно с сохранением размера).
5. Если надо, повторить с п.2
6. Пробежаться и собрать статистику.
Никакие удаления и нотификации мне ни разу не требовались. Свойство Owned - да, часто может упростить код. Но нотификации, на мой взгляд, все равно проще самому ручками.

Теперь относительно кода. Там же написано "берите, кто хотите, и делайте, что хотите".
Можете даже сослаться на оригинальный код автора, если хотите.
Но только большая просьба:

НЕ ПИШИТЕ НА СВОЕМ КОДЕ, ЧТО ЭТО МОЙ КОД.

P.S. У меня в Delphi7 твой даже не компилируется.

Выше писал уже: элемент правильной хеш-таблицы состоит ровно из двух полей хеш-код и объект (или индекс объекта в другом хранилище).
Если другого хранилища нет, то возможны различные варианты эмуляции правильной таблицы в зависимости от размера значения: короткое - вместо объекта, среднее и длинное - в доп. массиве. При этом для средних и длинных возможны свои варианты организации.

SOFT FOR YOUНу и в чем тогда проблема, что я Obj заменил на Value?

Проблема в том, что SizeOf(Value)<>4

SOFT FOR YOUНе хочешь видеть чужой код - пиши свой. Не хочешь свой - не кричи тогда по поводу копирайтов. Чья ещё эта таблица если не твоя? Устроил тут )

Ты правда идиот?
Напиши, что это твой код.
Если хочешь, напиши что взял за образец код с моего сайта.
И нет проблем.

SOFT FOR YOUAleksandr Sharahov,

Для твоего алгоритма нет разница, равен размер Value 4 или нет
Нет, я буду распространять этот модуль с твоими копирайтами и пусть люди подумают, что ты умеешь делать дженерики

Но есть разница в скорости.
Так что пусть лучше люди думают, что ты можешь писать только тормознутый код.

SOFT FOR YOUДженерики есть с 2009 года, всю черновую работу я тебе уже прописал. На тот случай если ты сам не умеешь, или времени нет, или оба варианта. У Казанцева таблица универсальная, у Эмбы (да и вообще у всех) универсальная, у тебя только TObject-ы.
У нас разные представления об универсальности. Как сделать универсально на TObject, я уже писал не раз.
А реализация на Value в твоем исполнении - это полный бред и я так никогда бы не сделал.

SOFT FOR YOUНадо же сравнивать твою таблицу на универсальном Value, а ты вместо благодарности слюной брызжешь.
Если хочешь сравнить свою реализацию с моей - бери код с сайта без всяких изменений.
А в своем коде поменяй Value на TObject.

SOFT FOR YOUПо поводу скорости... а ты думаешь другим авторам таблиц легко?
Вот соревнуйтесь между собой.
Нефиг ломать чужой код, а потом выезжать на белом коне.

SOFT FOR YOU,

культура общения в первую очередь состоит в умении
слушать, что говорит собеседник, и не навязывать ему свою точку зрения,

а как профессионал замени TObject на Pointer

SOFT FOR YOU,

Глупо не понимать, то что разжевано вдоль и поперек.
Как правило, TObject уже существует где-то в момент добавления ссылки на него в таблицу.
А профессиональные авторы контейнеров пишут их для тех, кто не может/не хочет написать контейнер для себя.

Владимир2012,

Относительно хешей очень много теории и разработок.
В частности, ваш экспромт называется FKS Hashing. У него рассматриваются статический и динамический варианты.
Есть его же развитие на случай вторичного хеширования. В частности доказывается, что для вторичного хеширования можно из очень простого семейства линейных хешей выбрать такие, что там не будет коллизий, а суммарный размер таблиц будет при этом расти линейно.