PROGRAM RegExpression_Search;
{-- ***************************************************************************
 -- ** Descr. : A simple demo program that shows how to use regular search
 -- **          Expressions.
 -- **
 -- ** MINVERS: Requires FormsAPI Master 1.0 Build 250 and up
 -- ***************************************************************************
 -- ** 27/12/03 1.001.00 Initial Creation, muellers@orcl-toolbox.com
 -- ***************************************************************************}


VAR
  src            : varchar2;
  reg            : TRegExpr;

BEGIN
  src := 'Test ; my little test ;very teingstly;!';
  reg := TRegExpr.create('te[^;]*st');
  if reg.Exec(src) then
  begin
    repeat
      logadd(substr(src,reg.MatchPos, reg.MatchLen));
    until reg.ExecNext=false;
  end;
  reg.free;
END.