Add(InlineCode,9936587,987,462)
{
 WorkPoints=#6:doFind|
 EventPoints=#6:onFind|5:onEnd|
 DataPoints=#4:Data|
 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|33:   Data, onFind, onEnd:THI_Event;|49:   procedure doFind(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doFind;|3:var|14:  F: TextFile;|19:  fn, t, s: string;|5:begin|24:  fn := toString(_Data);|27:  t := toStringEvent(Data);|20:  AssignFile(F, fn);|11:  Reset(F);|23:    while not eof(F) do|9:    begin|18:     Readln(F, s);|40:     if s=t then _hi_onEvent(onFind, s);|8:    end;|13:CloseFile(F);|25:_hi_onEvent(onEnd);      |4:end;|4:end.|
}