Soundex: Difference between revisions
Content deleted Content added
m →{{header|Delphi}}: make it work with recent versions |
|||
Line 1,529: | Line 1,529: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
<lang Delphi> |
<lang Delphi>program SoundexDemo; |
||
program SoundexDemo; |
|||
{$APPTYPE CONSOLE} |
{$APPTYPE CONSOLE} |
||
uses |
uses |
||
⚫ | |||
SysUtils, |
|||
⚫ | |||
begin |
begin |
||
Writeln(Soundex(' |
Writeln(Soundex('Ashcraft')); |
||
Writeln(Soundex(' |
Writeln(Soundex('Tymczak')); |
||
⚫ | |||
Writeln(Soundex('Sownteks')); |
|||
⚫ | |||
Writeln(Soundex('Ekzampul')); |
|||
⚫ | |||
end. |
|||
⚫ | |||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
A261 |
|||
S532 |
|||
T522 |
|||
E251 |
|||
S532 |
|||
E251 |
|||
</pre> |
</pre> |
||