Provádí kontrolu vstupního řetězce StrIn. Parametr Mode definuje, o jakou kontrolu půjde. Jestliže kontrola dopadně dobře, vrací funkce TRUE. Jinak vrací FALSE a textový řetězec popisující chybu StrErr .
Číslo | Konstanta | Popis |
---|---|---|
0 | chkICO |
Kontroluje IČO
|
1 | chkDIC |
Kontroluje DIČ
|
2 | chkPSC |
Kontroluje PSČ
|
3 | chkUcet |
Kontroluje bankovní účet
|
4 | chkKS |
Kontroluje KS
|
5 | chkSS |
Kontroluje SS
|
6 | chkVS |
Kontroluje VS
|
7 | chkRC |
Kontroluje rodné číslo
|
8 | chkKBnk |
Kontroluje kód banky
|
9 | chkRC1 |
Kontroluje rodné číslo - důslednější kontrola, lze používat 'xxxx' za lomítkem, rodné číslo nesmí být prázdné. Kontrola se provádí podle standardů SIS. Ať už kontrola dopadne dobře či nikoliv, lze z dynamických globálních proměnných přečíst jestli se jedná o muže či ženu a datum narození:
Datum narození je v případě neexistujícího datumu nulový.
|
10 | chkEMail |
Kontroluje správnost jednoho nebo více eMailu. V případě více eMailů, musí být odděleny středníkem! Kontrola probíhá podle regulárního výrazu:^[-!#$%&\'*+\./0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\/0-9=?A-Z^_`a-z{|}~]+\.[-!#$%&\'*+\./0-9=?A-Z^_`a-z{|}~]+$Prázdný eMail je chybou! Kontrolu jednoho eMailu lze vykonat i pomocí funkce _RegEx. |
Podívejte se na: Systémové funkce
Příklady:
dim S : String; if _Check("16191986", chkICO, S) then ... endif
{ Test eMailu u všech aktivních zaměstnanců } procedure Kontrola_Podle_Check dim strErr : String; dim strRC : String; dim nCnt : Longint; nCnt := 0; _StartDB(dbtO); repeat strRC := O[55]; if(strRC <> "")then if(_Check(strRC, chkEmail, strErr) = 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