------------ Дoбавленo в 14.43:
Add(MainForm,2953706,21,105)
{
link(onCreate,13936699:doEvent1,[])
}
Add(InlineCode,16691808,469,119)
{
WorkPoints=#4:Test|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|43: procedure Test(var dt:TData; idx:WORD);|5: end;|0:|14:implementation|0:|27:procedure THiAsmClass.Test;|5:begin|13:AllocConsole;|4:end;|0:|4:end.|
}
Add(Console,7873110,420,126)
{
Method=1
}
Add(Hub,13936699,70,119)
{
link(onEvent1,16691808:Test,[])
link(onEvent2,1557566:doStart,[])
}
Add(DoData,11956965,420,189)
{
link(onEventData,9551112:doEvent1,[])
link(Data,7873110:Read,[])
}
Add(Message,14227372,539,196)
{
}
Add(Repeat,4099284,231,133)
{
Op1=Integer(7)
Op2=Integer(7)
link(onRepeat,11956965:doData,[(283,139)(283,195)])
}
Add(Hub,6844703,203,126)
{
link(onEvent1,12088355:doWork2,[])
link(onEvent2,4099284:doRepeat,[])
}
Add(Thread,1557566,98,126)
{
link(onExec,6844703:doEvent1,[])
}
Add(DoData,6437570,322,126)
{
Data=String(Enter message: )
link(onEventData,7873110:doWrite,[])
}
Add(Hub,9551112,469,189)
{
link(onEvent1,12088355:doWork3,[(495,195)(495,165)(298,165)])
link(onEvent2,14227372:doMessage,[])
}
Add(HubEx,12088355,294,126)
{
link(onEvent,6437570:doData,[])
}