棒！不用安装控件，直接支持正则表达式

cuibq

原以为需要安装组件呢，没想到直接就可以用。
这是一个判断字符串是否符合小数数格式的函数：

uses   
  ... regexpr...

function ifIsDecimal(Strtmp: string): boolean;
var
  r: TRegExpr;
begin
  r:=TRegExpr.Create;
  r.Expression:='\d*\.\d*'; //小数
  r.ModifierI:=true;
  r.Exec(Strtmp);
  //if r.MatchPos[0]>=0 then
  if r.MatchLen[0]=length(Strtmp) then
    result := true
  else
    result := false;
end;  

1234567

谢谢分享!!!!!!!!!!!!!!!!!!!!!!

lzrshlyk

学习了,不用像 Delphi 要把 Regexpr 类加入项目中。

214426704

不错啊！！！！！！！！！！！！！！！！！！！！！111

genius

不错啊，lazarus越来越强大了。