d正则表达式相关

控件看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[];//输出结果：from table
  FreeAndNil(reg);