控件看Delphi正则表达式使用方法（TPerlRegEx）的介绍；
使用正则表达式获取Sql查询语句各项(表名、字段、条件、排序)
希望在线测试正则表达式 在线正则表达式测试 有许多常规表达式
希望通过sql语句get表名的表达式： ‘\s+from\s+.*?(\s+where\s+|\s+order\s+|\s+group\s+)|\s+from\s+.+‘
如select * from table
reg := TPerlRegEx.Create(nil); reg.Subject := ‘select * from table‘; reg.RegEx :=‘\s+from\s+.*?(\s+where\s+|\s+order\s+|\s+group\s+)|\s+from\s+.+‘; while reg.MatchAgain do mySQL := reg.SubExpressions[0];//输出结果：from table FreeAndNil(reg);
原文：http://www.cnblogs.com/usegear/p/5929339.html