SoundexWord

SoundexWord is a function that creates a Word type integer that represents the phonetic value of the source string AText, using a Soundex algorithm.

The source string AText is converted into a phonetic string representation where each resulting character represents one of six families of similar phonemes. It then returns an unsigned 16-bit value that uniquely represents the first four (4) Soundex codes in that string representation.

The case of the source string is irrelevant.

Declaration: Function SoundexWord( const AText : string) : Word;

Examples are as below.

procedure ScriptEvent (var Value : variant);
var
  sInput : string;
  wSound : word;
begin
  LogInfo('');
  sInput := 'MCGILLICUDDY';                           //All uppercase
  wSound := SoundexWord(sInput);
  LogInfo(sInput+' equals '+IntToStr(wSound));

  sInput := 'mcgillicuddy';                           //All lowercase
  wSound := SoundexWord(sInput);
  LogInfo(sInput+'(w) equals '+IntToStr(wSound));

  sInput := 'Pumpkin';                                //Sentence case
  wSound := SoundexWord(sInput);
  LogInfo(sInput+'(w) equals '+IntToStr(wSound));

  sInput := 'Romano-Wickham';                         //Hyphenated
  wSound := SoundexWord(sInput);
  LogInfo(sInput+'(w) equals '+IntToStr(wSound));

  wSound := SoundexWord('Robinson Crusoe'');          //Name + surname
  LogInfo(sInput+'(w) equals '+IntToStr(wSound));
  LogInfo('');
end;