Programowanie w języku Delphi

SoundExSimilar

  • 2010-10-31 18:27
  • 0 komentarzy
  • 1118 odsłon
  • Oceń ten tekst jako pierwszy
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ż: