SoundExCompare

function SoundExCompare(const AText, AOther: string; ALength: TSoundExLength = 4): Integer;

Funkcja sprawdza czy wartości podane w parametrach AText voraz AOther są podobne. Wykorzystuje przy tym algorytm SoundEx, który przekształca ciągi na postać fonetyczną. Działanie tej funkcji jest bardzo podobne do działania funkcji SoundExSimilar, z tą różnicą iż SoundExCompare zwraca rezultat w postaci liczby całkowitej Integer.

Wartość zero, oznacza, że dwa łańcuchy brzmią identycznie. Wartość mniejsza od zera, oznacza, że wartość reprezentowana przez AText jest mniejsza od tej reprezentowanej w AOther (wartość większa od zera oznacza, że AText > AOther). Przykład:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  StrUtils;
 
var
  I : Integer;
begin
  I := SoundExCompare('Beach', 'Beech', 10);
 
  Writeln(I);
  Readln;
end.

Zobacz też:

• SoundEx
• SoundExProc
• SoundExInt
• SoundExSimilar
• SoundExWord