Revision as of 12:51, 3 September 2021 view source Shuisman (talk \| contribs) 1,111 edits m →‎{{header\|Mathematica}} ← Older edit		Revision as of 15:29, 22 October 2021 view source rosettacode>Zorglub m →‎{{header\|Delphi}}: make it work with recent versions Newer edit →
Line 1,529: =={{header\|Delphi}}== <lang Delphi>program SoundexDemo; ~~program SoundexDemo;~~ {$APPTYPE CONSOLE} uses System.StrUtils;▼ ~~SysUtils,~~ ▲ StrUtils; begin Writeln(Soundex('~~Soundex~~Ashcraft')); Writeln(Soundex('~~Example~~Tymczak')); Readln;▼ ~~Writeln(Soundex('Sownteks'));~~ end.</lang>▼ ~~Writeln(Soundex('Ekzampul'));~~ ▲ Readln; ~~end.~~ ▲</lang> {{out}} <pre> A261 ~~S532~~ T522 ~~E251~~ ~~S532~~ ~~E251~~ </pre>

Soundex: Difference between revisions