Help for this page

Select Code to Download


  1. or download this
     
    $braces = qr/(?<braces>\{ ([^\{\}]++ | (?&braces))*+ \} )/x;
    if ($h =~ s/class \s+ (?<class_name> \w+) \s* (\: (\s* \w*)? \s* (?<an
    +cestor> \w+))? \s* $braces//x) {
       print "hi\n";
    }
    
  2. or download this
    class MyClassName : public MyAncestorClass {
    ...
    ...
    };
    
  3. or download this
      __property TNotifyEvent OnMonaDocSaveToDB = {read=FOnMonaDocSaveToDB
    +, write=FOnMonaDocSaveToDB};