У меня гдето схемка базы валялась. ------------ Д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,[]) }
|