Сам текст проекта ↓
Add(InlineCode,5600559,343,154)
{
WorkPoints=#7:doWork1|
EventPoints=#7nEvent|0
VarPoints=#3:Var|
DataPoints=#7:MyValue|0
Code=#15:unit HiAsmUnit;|09:interface|021:uses kol,Share,Debug;|04:type|28: THiAsmClass = class(TDebug)|10: private|14: s:string;|9: public|23: onEvent:THI_Event;| 23: MyValue:THI_Event;|5: |51: procedure doWork1(var Data:TData; index:word);|50: procedure Result(var Data:TData; index:word);|5: end;|014:implementation|05:const|14: s0 = '### ';|14: s2 = ' ###';|058:procedure THiAsmClass.doWork1(var Data:TData; index:word);|3:var| 16: s1, s3:string;|5:begin|33: s1 := ReadString(Data,MyValue);|23: s3 := toString(Data);|25: s := s0 + s1 + s2 + s3;|026: _hi_OnEvent(onEvent, s);|4:end;|057:procedure THiAsmClass.Result(var Data:TData; index:word);|5:begin|20: dtString(Data, s);|4:end;|04:end.|
link(onEvent,16334128:doText,[])
link(MyValue,7701069:Text,[])
}