_RegEx

     Expr        : String;
    Data        : String;
dim CompileOk   : Byte) : Byte

Nad daty Data vykoná regulární výraz Expr. Výsledek kompilace regulárního výrazu je v CompileOk (true / false). Výsledek vyhodnocení vrací (true / false).

Příklad:

{ Test eMailu u všech aktivních zaměstnanců }
procedure Kontrola_Podle_RegEx
    dim CompOK : Byte;
    dim bRes : Byte;
    dim strRC : String;
    dim nCnt : Longint;
	
    nCnt := 0;
    _StartDB(dbtO);
    repeat
        strRC := O[55];	
        if(strRC <> "")then
            bRes := _RegEx("^[-!#$%&\'*+\./0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\/0-9=?A-Z^_`a-z{|}~]+\.[-!#$%&\'*+\./0-9=?A-Z^_`a-z{|}~]+$", 
                                strRC, CompOk);
            if(bRes = false)then
                Trace(O[oJmeno], " '", strRC , "'");
            endif
        else
            Trace(O[oJmeno], " 'prázdný'");
        endif		
        printup(nCnt, " ", O[oJmeno]);
        _Inc(nCnt);
    until _StepRec(dbtO, true) = false;
endproc

Podívejte se na:  System