Add(HISEntryPoint,9919866,35,105)
{
 link(onStart,3194176:doCompare,[])
}
Add(If_else,3194176,84,105)
{
 link(onTrue,16307795:doMessage,[])
 link(onFalse,4657273:doEvent,[])
 link(Op1,11324436:Result,[])
}
Add(CheckElement,11324436,84,49)
{
 Pack="Delphi"
 Name="Regexpr"
}
Add(AddElement,14996987,259,112)
{
 Pack="Delphi"
 Name="Regexp"
 Info="Regular expression"
 Tab="String"
}
Add(Message,16307795,301,105)
{
 Text="Already exist!"
 Caption="Install Element"
}
Add(Hub,4657273,133,112)
{
 OutCount=4
 link(onEvent1,14996987:doAdd,[])
 link(onEvent2,4018582:doStrCat,[(209,125)(209,209)])
 link(onEvent3,8735262:doStrCat,[(187,132)(187,223)])
 link(onEvent4,2889056:doOperation,[(174,139)(174,279)])
}
Add(FileOperation,2889056,210,273)
{
 link(Source,8735262:Result,[])
 link(Dest,4018582:Result,[(223,260)(258,260)])
}
Add(Environment,7098983,210,154)
{
}
Add(StrCat,8735262,210,217)
{
 Str2="\regexpr.sha"
 link(onStrCat,10277449:doMessage,[(249,223)(249,251)])
 link(Str1,7098983:CurDir,[])
}
Add(StrCat,4018582,252,203)
{
 Str2="\Elements\Delphi\Example\Strings"
 link(onStrCat,11817859:doMessage,[])
 link(Str1,7098983:HiAsmDir,[(258,195)(230,195)])
}
Add(Message,11817859,301,203)
{
 Caption="Install Element"
}
Add(Message,10277449,301,245)
{
 Caption="Install Element"
}

string s6 = "";
string s9 = "";

function run() {
  if(sys.extelement("Delphi","Regexp")) {
    sys.message("Already exist!");
  }
  else {
    sys.addelement("Delphi","Regexpr","Regular expression","String");
    s6 = sys.hiasmdir() + "\Elements\Delphi\Example\Strings";
    sys.message(s6);
    s9 = sys.curdir() + "\regexpr.sha";
    sys.message(s9);
  }
}

// made by "HiAsm 3.67 build 171"

#ini
[About]
Version=1.0
Author=Dilma
Mail=hiasm@mail.ru

[Type]
Class=Element
Inherit=HTM_DoubleTag
Info=Тег <_b_>
Tab=Html

#hws
include('tag_maker')

section html

func doPrint
  include('tag_header')
  //... other tags ...
  include('tag_footer')
end