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