Add(InlineCode,3918115,399,280)
{
 WorkPoints=#8:dosearch|
 EventPoints=#8:onsearch|
 DataPoints=#8:filename|4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|30:      filename,text:THI_Event;|25:      onSearch:THI_Event;|6:      |53:      procedure doSearch(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|31:procedure THiAsmClass.doSearch;|3:var|14:  F: TextFile;|16:  S,t,u: string;|5:begin|31:   t := ReadString(Data, text);|35:   u := ReadString(Data, filename);|20:   AssignFile(F, u);|12:   Reset(F);|23:    While not Eof(F) do|9:    begin|18:     Readln(F, S);|54:     If pos(t,S)<> 0 then _hi_onEvent(onSearch, s);   |8:    end;|17:    CloseFile(F);|4:end;|0:|4:end.|
}