------------ Дoбавленo в 19.05:
да вот же она.
Делал для себя, немног переработал для цели выявления ошибок.
Очень легкий формат.
#pas
Add(MainForm,2953706,238,308)
{
Width=584
Height=649
link(onCreate,14491493:doEnum,[])
}
Add(ComboBox,15681990,532,434)
{
Left=465
Width=103
Height=21
Strings=#5:Error|7:Warning|
Point(Index)
}
Add(Edit,10883634,476,490)
{
Width=465
link(onEnter,11541190:doEvent,[])
}
Add(Memo,12015871,910,343)
{
Top=20
Width=565
Height=586
}
Add(StrList,2349975,273,231)
{
Strings=#43:[<error>Ошибка 1***Здесь описание ошибки 1]|64:[<warning> Предупреждение 2 *** Здесь описание предупреждения 2]|43:[<error>Ошибка 2***Здесь описание ошибки 2]|
}
Add(StrList,10561831,798,175)
{
@Color=21760
Point(doGetIndex)
Point(onGetIndex)
Point(doGetString)
Point(onGetString)
link(onGetIndex,12852494:doGetString,[(862,188)(862,340)(772,340)(772,311)])
}
Add(BlockFind,8226297,329,322)
{
IncludeBlock=1
StartBlock="["
EndBlock="]"
link(onSearch,10743068:doEvent1,[])
}
Add(ArrayEnum,14491493,287,322)
{
link(onItem,8226297:doSearch,[])
link(Array,2349975:Array,[])
}
Add(BlockFind,8609064,399,322)
{
IncludeBlock=1
Delete=0
StartBlock="<"
EndBlock=">"
link(onSearch,1596201:doCompare,[])
}
Add(If_else,1596201,448,322)
{
Op2=String(error)
link(onTrue,2704719:doData,[])
link(onFalse,15657518:doData,[])
}
Add(DoData,15657518,504,329)
{
link(onEventData,772280:doSplit,[(542,335)(542,363)])
link(Data,10325786:Var2,[])
}
Add(DoData,2704719,546,322)
{
link(onEventData,812494:doSplit,[])
link(Data,10325786:Var3,[(552,214)])
}
Add(GetDataEx,10325786,504,209)
{
Angle=3
link(Data,3925347:Value,[(202,214)(202,413)(510,413)])
}
Add(IndexToChanel,11541190,546,497)
{
Point(Index)
Point(Data)
PColor(onEvent1,65280)
link(onEvent1,10561831:doGetIndex,[(678,503)(678,391)(719,391)(719,223)])
link(onEvent2,16656999:In,[(684,510)(684,405)])
link(Index,15681990:Index,[])
link(Data,10883634:Text,[(559,427)(465,427)(465,538)(482,538)])
}
Add(StrList,7547554,793,357)
{
@Color=170
Point(doGetIndex)
Point(onGetIndex)
Point(doGetString)
Point(onGetString)
link(onGetIndex,1223173:In,[(833,370)(833,433)])
}
Add(MultiStrData,812494,623,322)
{
Char="***"
link(onPart1,10561831:doAdd,[(688,328)(688,181)])
link(onPart2,12852494:doAdd,[(756,335)(756,262)])
}
Add(MultiStrData,772280,616,357)
{
Char="***"
link(onPart1,14086312:doEvent,[])
link(onPart2,704518:doAdd,[(718,371)(740,370)(740,440)])
}
Add(StrList,704518,797,434)
{
@Color=170
Point(doGetIndex)
Point(onGetIndex)
Point(doGetString)
Point(onGetString)
link(onGetString,1709034:doWork3,[(869,454)])
}
Add(StrList,12852494,794,256)
{
@Color=21760
Point(doGetIndex)
Point(onGetIndex)
Point(doGetString)
Point(onGetString)
PColor(onGetString,65280)
link(onGetString,1709034:doWork1,[(869,276)])
}
Add(LineBreak,13855273,742,399)
{
link(Out,7547554:doGetIndex,[])
Primary=[16656999,-35,0]
}
Add(LineBreak,15089334,875,427)
{
link(Out,704518:doGetString,[(913,433)(913,514)(778,514)(778,489)])
Primary=[1223173,-37,0]
}
Add(HubEx,1709034,865,364)
{
PColor(onEvent,65280)
link(onEvent,12015871:doText,[])
}
Add(Debug,14086312,756,357)
{
link(onEvent,7547554:doAdd,[])
}
Add(Memory,3925347,504,371)
{
}
Add(Hub,10743068,371,322)
{
link(onEvent1,8609064:doSearch,[])
link(onEvent2,1014108:doReplace,[(389,335)(389,377)])
}
Add(Replace,1014108,399,371)
{
SubStr="<error>"
link(onReplace,9775224:doReplace,[])
}
Add(Replace,9775224,452,371)
{
SubStr="<warning>"
link(onReplace,3925347:doValue,[])
}