SoundexProc

SoundexProc indicates whether the two strings AText and AOther are similar, by returning the boolean value True are similar, and False if the two strings are not sufficiently similar.

SoundexSimilar uses a Soundex algorithm to convert both strings into a phonetic representation where each character of the resulting string represents one of six families of similar phonemes. It then compares the first four (4) characters in the resulting representation, returning True if they are all the same and False if they are not.

For the ability to compare up to 8 characters in the resulting phonetic representation of each string, please refer to the similar function SoundexSimilar. The greater number of characters compared, the more precision.

Declaration: Function SoundexProc( const AText, AOther : string) : Boolean;

The following examples show misses and matches.

procedure ScriptEvent (var Value : variant);
var sConfYN : boolean;
begin
  LogInfo('');
  LogInfo('');
  sConfYN := SoundexProc('Merryweather', 'Marywether');
  LogInfo('Merryweather + Marywether');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
 
  sConfYN := SoundexProc('Laurel', 'Hardy');
  LogInfo('Laurel + Hardy');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
 
  sConfYN := SoundexProc('Powers', 'Park');
  LogInfo('Powers + Park');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
 
  sConfYN := SoundexProc('Tomson', 'Thomson');
  LogInfo('Tomson + Thomson');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
 
  sConfYN := SoundexProc('SLEIGH', 'SLAY');
  LogInfo('SLEIGH + SLAY');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
 
  sConfYN := SoundexSimilar('ruby', 'roobie',8);
  LogInfo('ruby + roobie');
  If sConfYN = true then
    LogInfo('The strings are silimar.')
  else
    LogInfo('The strings are NOT similar.');
  LogInfo('');
end;