Add(MainForm,2953706,112,56)
{
 Width=607
}
Add(InlineCode,8651700,168,105)
{
 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(onRead,13041989:doAdd,[])
 link(FileName,14785991:Value,[])
}
Add(Memory,14785991,168,56)
{
 Default=String(License.txt)
}
Add(Button,9103806,112,105)
{
 Left=20
 Top=15
 link(onClick,8651700:doRead,[])
}
Add(ListBox,13041989,224,105)
{
 Left=15
 Top=45
 Width=575
 Height=210
}