Add(Memory,14785991,175,84)
{
 Default=String(C:A12Street.txt)
}
Add(Button,9103806,70,126)
{
 Left=20
 Top=15
 link(onClick,7961797:doEvent1,[])
}
Add(Label,10587039,287,133)
{
 Left=200
 Top=20
}
Add(Hub,7961797,133,126)
{
 OutCount=3
 link(onEvent1,11167105:doStart,[])
 link(onEvent2,8651700:doRead,[(161,139)(161,160)])
 link(onEvent3,11167105:doStop,[(210,146)(210,139)])
}
Add(TimeCounter,11167105,224,126)
{
 link(onStop,15861291:doWork2,[])
}
Add(InlineCode,8651700,175,154)
{
 WorkPoints=#6:doRead|
 EventPoints=#6:onRead|
 VarPoints=#4:tStr|
 DataPoints=#8:FileName|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|15:    str:string;|9:   public|13:    FileName,|22:    onRead: THI_Event;|49:    Procedure doRead(var _Data:TData;Index:Word);|47:    Procedure tStr(var _Data:TData;Index:Word);|5: end;|0:|14:implementation|0:|29:Procedure THiAsmClass.doRead;|3:var|14:  F: TextFile;|13:  fn: string;|5:begin|36:  fn := ReadString(_Data, FileName);|34:  if not FileExists(fn) then exit;|20:  AssignFile(F, fn);|11:  Reset(F);|23:    while not eof(F) do|11:      begin|22:       Readln(F, str);|32:       _hi_onEvent(onRead, str);|10:      end;|15:  CloseFile(F);|4:end;|0:|27:procedure THiAsmClass.tStr;|5:begin|23:  dtString(_Data, str);|4:end;|4:end.|
 link(FileName,14785991:Value,[])
}
Add(HubEx,15861291,273,133)
{
 link(onEvent,10587039:doText,[])
}