Ceci est une ancienne révision du document !

TRegExpr

Exemple d'utilisation

procedure TMainForm.RegExecute(ARegex, AText: string);
var
   vReg: TRegExpr;
   vI:   integer;
 
begin
   MMRes.Clear;
   vReg := TRegExpr.Create(ARegex);
   try
      if vReg.Exec(AText) then
      begin
         repeat
            MMRes.Lines.add('RegExpr.SubExprMatchCount=%d', [vReg.SubExprMatchCount]);
            if vReg.SubExprMatchCount > 0 then
            begin
               for vI := 0 to vReg.SubExprMatchCount do
               begin
                 MMRes.Lines.add(''); // ligne vide
                 MMRes.Lines.add('RegExpr.Match[%d]=''%s''', [vI, vReg.Match[vI]]);
                 MMRes.Lines.add('RegExpr.MatchPos[%d]=%d', [vI, vReg.MatchPos[vI]]);
                 MMRes.Lines.add('RegExpr.MatchLen[%d]=%d', [vI, vReg.MatchLen[vI]]);
               end;
            end;
         until not vReg.ExecNext;
      end;
   finally
      vReg.Free;
   end;
end;

Sources & Ressources

Vous pourriez laisser un commentaire si vous étiez connecté.