d正则表达式相关

控件看Delphi正则表达式使用方法（TPerlRegEx）的介绍；

使用正则表达式获取Sql查询语句各项(表名、字段、条件、排序)

 希望在线测试正则表达式  在线正则表达式测试 有许多常规表达式

希望通过sql语句get表名的表达式： 's+froms+.*?(s+wheres+|s+orders+|s+groups+)|s+froms+.+'

如select * from table

  reg := TPerlRegEx.Create(nil);
  reg.Subject := 'select * from table';
  reg.RegEx :='s+froms+.*?(s+wheres+|s+orders+|s+groups+)|s+froms+.+';
  while reg.MatchAgain do mySQL := reg.SubExpressions[0];//输出结果：from table
  FreeAndNil(reg);