SoundexProc
简述
比较两个字符串的发音是否足够相似。根据AText和Aother转成发音码以后比较前面四个发音码。如果两个发音码相同，返回真，否则返回假
注意：这个函数相当于SoundExSimilar函数将Alength参数设为4
SoundexProc(AText;AOther: String): Boolean;
| 名称 | 类型 | 说明 |
|---|
| AText | String | 字符串，比较发音字符串1 |
| AOther | String | 字符串，比较发音字符串1 |
| 返回 | Boolean |
布尔值 |
return SoundexProc("sun","sum");
//输出：1
return SoundexProc("sun","fun");
//输出：0
return SoundexProc("transaction","transact");
//输出：1