打造Delphi中字符串的replace函数

打造Delphi中字符串的replace函数

编者注：其实Delphi的StringReplace函数就是专为满足这个需要而设的。但我们也将这篇文章发表出来——至少作者提供了一种替代方案，探索精神应该鼓励！

这是小弟在这里的第一篇文章，加之自己水平也不是很高，就来讨论一个基础但是很实用的问题吧，希望能给大家一些帮助。

用过vb的或asp的朋友都知道，在vb里有一个很实用的replace函数，它的功能是把一个字符串中与子串（又叫模式串）相匹配的串替换为指定的串。举个例子来说有这样一个字符串：s:=’apple is apple!’ ，用replace函数replace(s,’apple’,’box’)后，s就变为’box is box!’。串的长度也相应改变了。这是一个很有用的函数，大家都知道在开发数据库系统时会经常用到结构化查询语句sql，而这个语句中对有些字符是比较敏感的，比如说单引号，如果在sql语句中出现单引号（因为单引号是在sql中规定的一个有意义的字符）程序就会出现意想不到的错误，甚至可以被他人利用使系统产生严重安全漏洞（这就是著名的sql注入式攻击，相信大家还记得以前csdn论坛曾发现的这个漏洞吧）。这时你就需要在数据库操作时候将单引号替换为其他的字符串或空串，在读出数据的时候再替换回来，这样数据记录中就可以记录单引号，而不发生错误了。

然而，我在delphi中却没有发现类似的函数（或许是我没找到？），实在是很不方便，于是自己写了一个，在以后的数据库系统开发中就方便多了。说了那么多废话，下面是代码，加上注释应该比较容易理解。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有