Kontrola e-mailové adresy – Pascal – Fórum – Programujte.com

Zdravím, věděl by někdo, jak na to? Jdou využít v pascalu regulární výrazy, jak v jiných pr. jazycích? Zkoušel jsem to pouze přes podmínky, ale nejde to ošetřit tak, jak bych si představoval.
Příklad pro FALSE: .@. nebo @@@seznam.cz nebo jmeno@.cz nebo jmeno@seznam.czecze...
 

Nevyplatí se rozdělit si to na 3 proměnné a ty testovat? (jmeno, poskytovatel, domena) a pak je spojit vystup:=concat(jmeno,'@',poskytovatel,domena)?

Napište funkci, která zkontroluje správnost zadané e-mailové adresy (jméno@poskytovatel.doména).

Tak to otestuj vyhledáváním:

spatne:=pos('@',adresa)=0;

spatne:=spatne or (pos('@.',adresa)>0);

a tak dál...

tu poslední podmínku bys asi nezkontroloval žádným jednoduchým regulárním výrazem, protože bys musel ověřit všechny domény prvního řádu...