SoundExSimilar

function SoundExSimilar(const AText, AOther: string; ALength: TSoundExLength = 4): Boolean;

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 praktycznie identyczne jak działanie SoundExProc, z tą różnicą iż SoundExSimilar posiada dodatkowy parametr - ALength. Określa on ilość kodów wygenerowanych przez algorytm, co posłuży do porównania łańcuchów.

Poniższy przykład spowoduje wyświetlenie na konsoli tekstu TRUE, ponieważ obydwa ciągi brzmią tak samo:

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

Zobacz też:

• SoundEx
• SoundExCompare
• SoundExInt
• SoundExProc