Add(MainForm,2953706,77,84) { } Add(MultiElement,3208193,308,140) { @Hint=#56:Записывает строку и формирует двойную строку. Схема ТВОЯ| link(onEvent1,9487217:doText,[]) AddHint(-1,-36,185,26,@Hint) } BEGIN_SDK Add(EditMulti,4089528,21,21) { EventCount=1 WorkCount=1 VarCount=2 Width=230 Height=109 link(doWork1,12911346:doValue,[(39,27)(39,48)]) link(Var1,14450652:Var2,[(27,102)(69,102)]) link(Var2,6291844:Value,[(34,109)(181,109)]) } Add(Memory,12911346,63,42) { link(onData,7447056:doStrCat,[]) } Add(StrCat,7447056,119,42) { link(onStrCat,6291844:doValue,[]) link(Str1,1602444:Var2,[]) link(Str2,1602444:Var3,[(132,30)]) } Add(GetDataEx,14450652,63,84) { link(Data,12911346:Value,[]) } Add(GetDataEx,1602444,119,25) { Angle=3 link(Data,14450652:Var3,[(105,30)(105,89)]) } Add(Memory,6291844,175,42) { link(onData,4089528:onEvent1,[(222,48)(222,27)]) } END_SDK Add(MultiElement,3177993,308,189) { @Hint=#55:Записывает строку и формирует двойную строку. Схема МОЯ| link(onEvent1,4073093:doText,[]) AddHint(-4,42,185,26,@Hint) } BEGIN_SDK Add(EditMulti,4089528,21,21) { EventCount=1 WorkCount=1 VarCount=2 Width=195 Height=67 link(doWork1,12911346:doValue,[(42,27)(42,41)]) link(Var1,11820644:Var1,[(27,74)]) link(Var2,7447056:Result,[(34,79)(125,79)]) } Add(Memory,12911346,63,35) { link(onData,7447056:doStrCat,[]) } Add(StrCat,7447056,119,35) { link(onStrCat,4089528:onEvent1,[(183,41)(183,27)]) link(Str1,11820644:Var3,[(125,23)(105,23)(105,74)]) } Add(GetDataEx,11820644,63,69) { link(Data,12911346:Value,[]) } END_SDK Add(Button,13773582,77,140) { Left=30 Top=125 Data=String(123456789) link(onClick,4113776:doData,[]) } Add(Label,9487217,420,140) { Left=10 Top=30 } Add(Label,4073093,420,189) { Left=10 Top=60 } Add(Hub,12432284,245,140) { OutCount=3 link(onEvent1,3208193:doWork1,[]) link(onEvent2,3177993:doWork1,[(283,153)(283,195)]) link(onEvent3,15594729:doWork1,[(276,160)(276,272)]) } Add(Label,9906614,420,266) { Left=10 Top=90 } Add(MultiElement,15594729,308,266) { @Hint=#57:Записывает строку и формирует двойную строку. Схема на IC| link(onEvent1,9906614:doText,[]) AddHint(-2,43,185,26,@Hint) } BEGIN_SDK Add(EditMulti,4089528,21,21) { EventCount=1 WorkCount=1 VarCount=2 Width=195 Height=60 link(doWork1,12911346:doValue,[]) link(Var1,12911346:Value,[(27,62)(76,62)]) link(Var2,8262024:Result,[(34,68)(125,68)]) } Add(Memory,12911346,70,21) { link(onData,8262024:doStrCat,[]) } Add(InlineCode,8262024,119,21) { WorkPoints=#8:doStrCat| EventPoints=#8:onStrCat| VarPoints=#6:Result| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|14: r:string;|9: public|22: onStrCat:THI_Event;|51: procedure doStrCat(var _Data:TData; Index:Word);|49: procedure Result(var _Data:TData; Index:word);|5: end;|0:|14:implementation|31:procedure THiAsmClass.doStrCat;|15: var s1:string;|5:begin|25: s1 := ToString(_Data);|17: r := s1 + s1; |41: _hi_CreateEvent(_data, @ onStrCat, r);|4:end;|0:|29:procedure THiAsmClass.Result;|5:begin|22: dtString(_data, r);|4:end;|4:end.| link(onStrCat,4089528:onEvent1,[]) } END_SDK Add(Edit,717331,154,84) { Left=35 Top=5 Width=330 } Add(DoData,4113776,154,140) { link(onEventData,12432284:doEvent1,[]) link(Data,717331:Text,[]) }