Rosetta Code

Soundex: Difference between revisions

Page Discussion

Soundex (view source)

Revision as of 15:29, 22 October 2021

76 bytes removed ,  2 years ago
m
→‎{{header|Delphi}}: make it work with recent versions
m (→‎{{header|Delphi}}: make it work with recent versions)
Line 1,529:
 
=={{header|Delphi}}==
<lang Delphi>program SoundexDemo;
program SoundexDemo;
 
{$APPTYPE CONSOLE}
 
uses
System.StrUtils;▼
SysUtils,
▲ StrUtils;
 
begin
Writeln(Soundex('SoundexAshcraft'));
Writeln(Soundex('ExampleTymczak'));
Readln;▼
Writeln(Soundex('Sownteks'));
end.</lang>▼
Writeln(Soundex('Ekzampul'));
▲ Readln;
end.
▲</lang>
{{out}}
<pre>
A261
S532
T522
E251
S532
E251
</pre>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/131962"