DELPHI 相似字符串匹配 AnsiResemblesText函数

最近需要一个能够匹配两个字符串是否相似的函数,然后根据3组字符串判断两条数据是否对应的.

刚开始想自己写一个函数,但是后来发现StrUtils.pas有一个自带的函数AnsiResemblesText.用起来效果不错,但是不知道具体他根据什么来匹配,有空看看他的代码.

function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas
　　功能 返回两个字符串是否相似
　　说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写
　　参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
　　例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);