#hws
func Init
  lang(arr:array)
  if(isndef(Numbers))
    fvar(s, n, i, old)

    s = Numbers
    if(_arr.count(s))
      for(i = 0; i < _arr.count(s); i++)
        n &= s[i][0]
      end  
      s = _arr.join(n, ',') 
    else
      s = ''
    end
    lng.decl_priv_var(arr, 'array[0..65000] of integer')
  end
  sub(arr, 13 & 1)
end

func Array()
  return(arr)
end

Add(MainForm,2953706,21,105)
{
 Width=308
}
Add(InlineCode,490725,210,119)
{
 WorkPoints=#3:in1|
 EventPoints=#4:out1|
 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|18:   out1:THI_Event;|42:   procedure in1(var dt:TData;Index:Word);|5: end;|0:|14:implementation|0:|26:procedure THiAsmClass.in1;|4:var |33:  ar1: array of array of integer;|5:begin|32:// An array of 4 by 4 elements: |23:  SetLength(ar1, 4, 4);|19:  // Use the array:|16:  ar1[0,0] := 5;|16:  ar1[0,1] := 7;|18:  ar1[2,0] := 200;|17:  // and so on...|0:|29:_hi_OnEvent_(out1, ar1[0,0]);|29:_hi_OnEvent_(out1, ar1[0,1]);|29:_hi_OnEvent_(out1, ar1[2,0]);|4:end;|0:|4:end.|0:|0:|0:|0:|0:|0:|0:|
 link(out1,15938406:doAdd,[])
}
Add(Button,4071366,154,119)
{
 Left=15
 Top=30
 Width=75
 Height=185
 Data=String(я строка из кнопки)
 link(onClick,490725:in1,[])
}
Add(ListBox,15938406,266,119)
{
 Left=105
 Top=5
 Width=190
 Height=250
}