SoundEx
Adam Boduch
SoundEx
Moduł: StrUtils
program FooApp;
{$APPTYPE CONSOLE}
uses
StrUtils;
var
S : String;
begin
S := SoundEx('Beach', 10);
Writeln(S);
Readln;
end.
Taki kod spowoduje wyświetlenie na ekranie: B200000000
.
Zobacz też: