SoundExSimilar
Moduł: StrUtils
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ż:
