讨论下遍历字符替换怎么可以高效？

Question

一段一万字的文章。。同义词有几千行。每行格式是.....................
同学 同窗 校友
朋友 friend 老友 好友 知已
.................
怎么实现随机替换并高效呢？我现在做法是用TStringList.loadfromfile('words.txt'),然后for循环每行用正则查找
正则： '朋友|friend|老友|好友|知已'
查找到的话就随机产生一个数字,比如上面这行有 5 个词。则 rand := randintfunc(0, 4)。
然后用 words[rand] 来替换查到的结果。只是每次要循环几千行。要是不断增加行就更慢了

Answer 1

http://hi.baidu.com/net_zeng/blog/item/f9c365055d2a0f167bec2c39.html

Answer 2

不用每行替换，对stringlist.text替换就行了
其实，这个无须行的概念，没必要使用stringlist，
直接读入一个大string进行替换就行了

Answer 3

不分行查找没问题。但对应替换就不行了///
查找到的话就随机产生一个数字,比如上面这行有 5 个词。则 rand := randintfunc(0, 4)。