memo字符串分类的问题

Question

http://hi.baidu.com/sys/checkuser/D??-kay/0
http://hi.baidu.com/sys/checkuser/D??-kay/0
http://hi.baidu.com/sys/checkuser/ashley1116/0
http://hi.baidu.com/sys/checkuser/ashley1116/0
http://hi.baidu.com/sys/checkuser/myhongbin/0
http://hi.baidu.com/sys/checkuser/myhongbin/0
http://hi.baidu.com/sys/checkuser/noeljun/0
http://hi.baidu.com/sys/checkuser/noeljun/0
http://hi.baidu.com/sys/checkuser/Cindy_Hathaway/0
http://hi.baidu.com/sys/checkuser/Cindy_Hathaway/0
http://hi.baidu.com/sys/checkuser/398830015/0
http://hi.baidu.com/sys/checkuser/398830015/0
http://hi.baidu.com/sys/checkuser/Grateriljing/0
http://hi.baidu.com/sys/checkuser/Grateriljing/0
http://hi.baidu.com/sys/checkuser/731850063/0
http://hi.baidu.com/sys/checkuser/731850063/0
http://hi.baidu.com/sys/checkuser/maoss1002/0
http://hi.baidu.com/sys/checkuser/maoss1002/0
http://hi.baidu.com/sys/checkuser/sunkame/0
http://hi.baidu.com/sys/checkuser/sunkame/0
http://hi.baidu.com/sys/checkuser/YDD6060/0
http://hi.baidu.com/sys/checkuser/YDD6060/0
http://hi.baidu.com/sys/checkuser/lee78324600/0
http://hi.baidu.com/sys/checkuser/lee78324600/0
http://hi.baidu.com/sys/checkuser/David_King_/0
http://hi.baidu.com/sys/checkuser/David_King_/0
http://hi.baidu.com/sys/checkuser/o-??谨??/0
http://hi.baidu.com/sys/checkuser/o-??谨??/0
http://hi.baidu.com/sys/checkuser/loka17/0
http://hi.baidu.com/sys/checkuser/loka17/0
http://hi.baidu.com/sys/checkuser/675126200/0
http://hi.baidu.com/sys/checkuser/675126200/0
我的Memo中有这样的字符 我想分离出来
 去掉 http://hi.baidu.com/sys/checkuser/
去掉/0
只保留中间的字符串 如何操作

Answer 1

memo1.text := stringReplace(memo1.text, 'http://hi.baidu.com/sys/checkuser/', '', [rfreplaceAll, rfIgnoreCase]);
memo1.text := stringReplace(memo1.text, '/0', '', [rfreplaceAll, rfIgnoreCase]);

Answer 2

保险一点：
const ln=#13#10;
memo1.text := stringReplace(ln+memo1.text, ln+'http://hi.baidu.com/sys/checkuser/', '', [rfreplaceAll, rfIgnoreCase]); 
memo1.text := stringReplace(memo1.text+ln, '/0'+ln, '', [rfreplaceAll, rfIgnoreCase]);