Add(InlineCode,7039544,567,364)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:doText|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|12:{$I def.inc}|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|10:   doText,|19:   Str : THI_Event;|49:   procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|19:var s, ss : string;|17:    i : integer; |5:begin|26:  s := toStringEvent(Str);|20:  if s='' then exit;|21:  i := pos('shdr',s);|19:  if i=0 then exit;|21:  ss := CopyEnd(s,i);|56:  while Pos('+10',ss)<>0 do StrReplace( ss,'+10','   ');|56:  while Pos('-10',ss)<>0 do StrReplace( ss,'-10','   ');|39:  _hi_onEvent(doText,copy(s,1,i-1)+ss);|4:end;|4:end.|
}