Add(InlineCode,287108,196,105)
{
 WorkPoints=#6:doWork|
 DataPoints=#9:NamePoint|
 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|43:   NamePoint:THI_Event; // вот так ДОБАВИТЬ|49:   Procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|46:Procedure THiAsmClass.doWork; // А так СЧИТАТЬ|13:var s:string;|14:    i:integer;|13:    r:double;|5:Begin|9:// дальше|7:// или |32:  s := toStringEvent(NamePoint);|9:// или   |33:  i := toIntegerEvent(NamePoint);|9:// или   |30:  r := toRealEvent(NamePoint);|41:// в зависимости от  нужного типа данных |4:End;|4:end.|
}