DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 33
在线用户: 17
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/20 11:32:27
标题:
10.4.1 导致TRegExpr异常? 浏览:1283
加入我的收藏
楼主:      regex := TRegExpr.Create;
     try
          regex.ModifierI := True;;
          data := 'aa vErsion 6 ABNDSFDS';
          regex.Expression := 'version (6)';
          if regex.Exec(data) then begin
          Result := Trim(regex.Match[1]);
          end;

代码在10.3写得好好的, 升级到10.4.1后, 不起作用. 
大小写怎么忽略不了.. 

测试代码如上..Result返回空.. 求指教哪错了.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/20 17:08:57
1楼: TRegExpr
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 blueflag (昆了) ★☆☆☆☆ -
盒子活跃会员
2020/11/20 20:52:57
2楼: 认真考虑一下正则的写法,正则的字符串写的有一点问题就会出现麻烦
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/21 7:55:00
3楼: @blueflag 

vErsion 6  是可以匹配的,  换成 version 6 就不行了.. 
调整ModifierI 也一样不行.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/23 9:45:35
4楼: procedure TForm1.btn1Click(Sender: TObject);
var
  regex :TRegExpr;
begin
 mmo1.Lines.Clear;
 //默认是区分大小写的. 现在要调整成不区分大小写.
 regex := TRegExpr.Create;
 try
      regex.ModifierI := True;  //大小写?
      regex.Expression := 'teststr';
      if regex.Exec('Teststr') then begin
         mmo1.Lines.Add(Trim(regex.Match[0]));
      end;
 finally
   FreeAndNil(regex);
 end;

 regex := TRegExpr.Create;
 try
      regex.ModifierI :=False;   //大小写?
      regex.Expression := 'teststr';
      if regex.Exec('Teststr') then begin
         mmo1.Lines.Add(Trim(regex.Match[0]));
      end;
 finally
   FreeAndNil(regex);
 end;
end;

求救啊,  完全不起作用... 怎么实现不区分大小写?
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2020/11/25 11:11:25
5楼: 用自带不就好了?
uses System.RegularExpressions;

procedure TForm1.Button1Click(Sender: TObject);
var
  LRegEx: TRegEx;
  LPatten: string;
  LString: string;
begin
  mmo1.Lines.Clear;
  LPatten := 'teststr';
  LString := 'Teststr';
  LRegEx := TRegEx.Create(LPatten, [roIgnoreCase]);
  if LRegEx.Match(LString).Success then
  begin
    mmo1.Lines.Add(LRegEx.Match(LString).Value);
  end;
end;
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/25 14:24:23
6楼: @sail2000  可是我项目已经集成了RegExpr, 难道要一个一个改成RegularExpressions??
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2020/11/25 15:04:53
0楼: 那就看你的选择了,不是我能考虑的。
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?
作者:
男 biznow (biznow) ★☆☆☆☆ -
盒子活跃会员
2020/11/25 16:09:56
7楼: 请升级当前版本为链接中的版本,我测试了10.4.1,是可以正常返回的

https://github.com/andgineer/TRegExpr
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/25 16:17:33
8楼: @biznow
此帖子包含附件:
JPEG 图像
大小:86.1K
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/25 16:27:35
9楼: 无法测试.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 biznow (biznow) ★☆☆☆☆ -
盒子活跃会员
2020/11/25 19:00:22
10楼: 注释掉~~
此帖子包含附件:
PNG 图像
大小:15.9K
----------------------------------------------
-
作者:
男 sxqwhxq (步惊云) ★☆☆☆☆ -
普通会员
2020/11/26 8:31:48
11楼: 正则看得头晕,有时还不如自己写函数
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2020/11/26 9:08:36
12楼: @biznow 
谢谢, 成功了,   感谢..
regex.ModifierI 实测已经可用了.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行101.5625毫秒 RSS