Add(MainForm,2953706,140,147)
{
 Width=319
 Height=357
}
Add(InlineCode,5373824,196,196)
{
 WorkPoints=#7:doStart|
 EventPoints=#8:onResult|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|30:  arr = array[1..10] of real; |14:  parr = ^arr;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|12:     a: arr;|9:   public|25:     onResult: THI_Event;|52:     procedure doStart(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|0:|59:procedure THiAsmClass.doStart(var _Data:TData; Index:word);|3:var|13:  i: integer;|17:  pointarr: parr;|5:begin|17:  pointarr := @a;|21:  for i := 1 to 10 do|16:    a[i] := i;  |43:  _hi_onEvent(onResult, Longint(pointarr));|4:end;|0:|4:end.|
 link(onResult,9584957:doOperation,[])
}
Add(Button,1288352,140,196)
{
 Left=120
 Top=275
 TabOrder=-1
 link(onClick,5373824:doStart,[])
}
Add(ListBox,16067378,315,196)
{
 Left=25
 Top=10
 Width=255
 Height=255
}
Add(InlineCode,9584957,252,196)
{
 WorkPoints=#11:doOperation|
 EventPoints=#8:onResult|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|30:  arr = array[1..10] of real; |14:  parr = ^arr;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|12:     a: arr;|9:   public|25:     onResult: THI_Event;|56:     procedure doOperation(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|63:procedure THiAsmClass.doOperation(var _Data:TData; Index:word);|3:var|13:  i: integer;|17:  pointarr: parr;|5:begin|37:  pointarr := parr(ToInteger(_Data));|21:  for i := 1 to 10 do|41:    _hi_onEvent(onResult, pointarr^[i]); |4:end;|4:end.|
 link(onResult,16067378:doAdd,[])
}