Add(Edit,13240474,7,98)
{
Left=40
Top=25
Text=""
DataType=1
Point(onEnter)
link(onEnter,16339236:doCompare,[])
}
Add(StrList,12915598,105,14)
{
Strings=#24:Сообщение с индексом = 0|24:Сообщение с индексом = 1|24:Сообщение с индексом = 2|24:Сообщение с индексом = 3|24:Сообщение с индексом = 4|
Point(onGetString)
Point(doGetString)
link(onGetString,8277243:doWork2,[])
}
Add(If_else,16339236,56,98)
{
Type=1
link(onTrue,12915598:doGetString,[(96,104)(96,62)])
link(onFalse,1910810:doData,[])
link(Op2,12915598:Count,[(69,82)(118,82)])
}
Add(DoData,1910810,105,105)
{
Data=String(Н Е Т Т А К И Х)
link(onEventData,8277243:doWork3,[(144,111)])
}
Add(HubEx,8277243,140,14)
{
link(onEvent,3936199:doMessage,[])
}
Add(Message,3936199,161,21)
{
}
Андрей. писал(а):
можно научить среду лазить на SVN ------------ Дoбавленo:
http://hiasm.googlecode.com/svn/elements/delphi/code/hiназвание.pas
http://hiasm.googlecode.com/svn/elements/delphi/conf/название.ini
http://hiasm.googlecode.com/svn/elements/delphi/icon/название.ico
и всего делов