Add(Memory,13203631,518,77) { Default=String(FFFFFF55CB340E544D950D77E99A0A4A333207) } Add(Button,9662299,448,133) { Left=5 Top=5 link(onClick,11041248:GetPart,[]) } Add(Label,5188255,721,133) { Left=75 Top=5 } Add(Label,4928195,721,175) { Left=75 Top=25 } Add(Label,14125727,721,217) { Left=75 Top=45 } Add(Label,2407835,721,259) { Left=75 Top=65 } Add(InlineCode,11041248,518,133) { WorkPoints=#7:GetPart| EventPoints=#5:part1|5:part2|5:part3|5:part4| DataPoints=#6:indata| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|19: part1:THI_Event;|19: part2:THI_Event;|19: part3:THI_Event;|19: part4:THI_Event;|20: indata:THI_Event;|50: procedure GetPart(var _Data:TData; Index:WORD);|0:|5: end;|0:|14:implementation|0:|59:procedure THiAsmClass.GetPart(var _Data:TData; Index:WORD);|14:var s:string; |5:begin|31:s := ReadString(_Data, indata);|32:_hi_onEvent(part1, Copy(s,7,2));|32:_hi_onEvent(part2, Copy(s,9,2));|33:_hi_onEvent(part3, Copy(s,11,2));|33:_hi_onEvent(part4, Copy(s,13,2));|5:end; |4:end.| link(part1,5188255:doText,[]) link(part2,4928195:doText,[(636,146)(636,181)]) link(part3,14125727:doText,[(636,153)(636,223)]) link(part4,2407835:doText,[(636,160)(636,265)]) link(indata,13203631:Value,[]) }