isCaseSensitiv = false; //************* commentaires ************* $DH->comment = array('({[^$][^}]*})', //commentaires: { ... } '($\*[^$](.*)\*$)' //commentaires: (* ... *) ); $DH->commentLine = array('(//.*\n)'); //commentaire // $DH->commentStyle = "color: red; font-style: italic"; //style CSS pour balise SPAN //************* directives de compilation ************* $DH->directive = array('({\\$[^{}]*})', //directive {$....} '($\*\\$(.*)\*$)' //directive (*$....*) ); $DH->directiveStyle = "color: green"; //style CSS pour balise SPAN //************* chaines de caracteres ************* $DH->string = array("('[^']*')",'(#\d+)'); //chaine = 'xxxxxxxx' ou #23 $DH->stringStyle = "background: yellow"; //************* nombres ************* $DH->number[] = '(\b\d+(\.\d*)?([eE][+-]?\d+)?)'; //123 ou 123. ou 123.456 ou 123.E-34 ou 123.e-34 123.45E+34 ou 4e54 $DH->number[] = '(\$[0-9A-Fa-f]+\b)'; //ajout des nombres hexadecimaux : $AF $DH->numberStyle = 'color: blue'; //************* mots clé ************* $DH->keywords['MotCle']['words'] = array('absolute','abstract','and','array','as','asm', 'begin', 'case','class','const','constructor', 'default','destructor','dispinterface','div','do','downto', 'else','end','except','exports','external', 'file','finalization','finally','for','function', 'goto', 'if','implementation','inherited','initialization','inline','interface','is', 'label','library','loop','message', 'mod', 'nil','not', 'object','of','or','out','overload','override', 'packed','private','procedure','program','property','protected','public','published', 'raise','read','record','repeat','resourcestring', 'set','shl','shr','stdcall','string', 'then','threadvar','to','try','type','unit','until', 'use','uses', 'var','virtual','while', 'with','write', 'xor' ); $DH->keywords['MotCle']['style'] = 'font-weight: bold'; //style CSS pour balise SPAN //************* liste des symboles ************* $DH->symboles = array('#','$','&','(','(.',')','*','+',',','-','.','.)','..', '/',':',':=',';','<','<=','<>','=','>','>=','@','[',']','^'); $DH->symbolesStyle = ''; //************* identifiants ************* $DH->identifier = array('[_A-Za-z]?[_A-Za-z0-9]+'); $DH->identStyle = ''; echo "

".$DH->Analyse($text)."

"; unset($DH); ?>