Delphi 6字符串函数集
Delphi6 的字符串函数还挺丰富的，AnsiResemblesText 就是个比较实用的小工具。你传两个字符串进去，它会判断是不是“看起来差不多”，不区分大小写。像用户输入、模糊搜索那类功能，用它就挺顺手的。
StrUtils.pas里的实现，底层是用 Soundex 算法，比普通的字符串比较更智能些。比如你输入 color 和 colour，它也能判断出差异不大，这点还挺贴心。
你要是在做表单校验，比如两个文本框对比，就可以这样写：
CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);这种方式用起来简洁，响应也快，不用你自己写各种判断逻辑。
如果你对 Delphi6 还挺感兴趣的，可以顺手看看这些：
- delphi6 函数大全 —— 基本上是工具书级别，按着查就行
- Mastering Delphi6 —— 更深入，适合想进阶的
- Delphi6 灵感源码 —— 想找点灵感可以看看
如果你平时经常做本地化、拼写容错那类功能，AnsiResemblesText 真的值得加进你的工具库，省事多了。
文件大小：29.75KB
评论区