Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как определить, что два слова имеют схожее произношение?

01.01.2007

Автор: Lloyd

Функция Soundex определяет схожесть звучания двух слов. Алгоритм Soundex опубликован в одной из статей журнала PC Magazine и предназначен для работы с английским языком (может кто-нибудь портирует для работы с нашим могучим? Пишите). Функции передается строка. Возвращаемое Soundex значение также имеет тип строки. Эта величина может сохраняться в базе данных или сравниваться с другим значением Soundex. Если два слова имеют одинаковое значение Soundex, можно предположить, что звучат они одинаково (более или менее).

Вы должны иметь в виду, что алгоритм Soundex игнорирует первую букву слова. Таким образом, "won" и "one" будут иметь различное значение Soundex, а "Won" и "Wunn" - одинаковое.

Soundex будет особенно полезен в базах данных, когда пользователь затрудняется с правописанием имен и фамилий.

function Soundex(OriginalWord: string): string;
var
  Tempstring1
, Tempstring2: string;
 
Count: integer;
begin
  Tempstring1
:= '';
  Tempstring2
:= '';
 
OriginalWord := Uppercase(OriginalWord);
   
{Переводим исходное слово в верхний регистр}
 
Appendstr(Tempstring1, OriginalWord[1]); {Используем первую букву слова}
 
for Count := 2 to length(OriginalWord) do
   
{Назначаем числовое значение каждой букве, за исключением первой}
 
   
case OriginalWord[Count] of
     
'B', 'F', 'P', 'V': Appendstr(Tempstring1, '1');
     
'C', 'G', 'J', 'K', 'Q', 'S', 'X', 'Z': Appendstr(Tempstring1, '2');
     
'D', 'T': Appendstr(Tempstring1, '3');
     
'L': Appendstr(Tempstring1, '4');
     
'M', 'N': Appendstr(Tempstring1, '5');
     
'R': Appendstr(Tempstring1, '6');
     
{Все другие буквы, цифры и знаки пунктуации игнорируются}
   
end;
 
Appendstr(Tempstring2, OriginalWord[1]);
 
{Удаляем из результата все последовательно повторяющиеся цифры.}
 
 
for Count := 2 to length(Tempstring1) do
   
if Tempstring1[Count - 1] <> Tempstring1[Count] then
     
Appendstr(Tempstring2, Tempstring1[Count]);
 
Soundex := Tempstring2; {Это - значение soundex}
end;

SoundAlike - функция, проверяющая схожесть звучания двух слов. При схожести звучания она возвратит значение True и значение False в противном случае. Она демонстрирует пример использования функции Soundex.

function SoundAlike(Word1, Word2: string): boolean;
begin
 
if (Word1 = '') and (Word2 = '') then
    result
:= True
 
else if (Word1 = '') or (Word2 = '') then
    result
:= False
 
else if (Soundex(Word1) = Soundex(Word2)) then
    result
:= True
 
else
    result
:= False;
end;

Дополнение

Существует алгоритм ("параметрической корреляции", если я вообще правильно называю его), основанный на оценке схожести слов по количеству совпадающих букв идущих друг за другом. Примечание: буквы не обязательно идут *непосредственно* друг за другом, т.е. без других букв.

Пример:

  Андрей vs. Андрей - 6

  ндрей vs. Андрей - 5

  Анрей vs. Андрей - 5

  Андрей vs. Александр - 4

  Андрей vs. Иннокентий - 2

  АнXрей vs. Андрей - 3, но в то же время с другими словами результат

будет на уровне 0..2

https://delphiworld.narod.ru/

DelphiWorld 6.0