Add(MainForm,4516588,203,231)
{
 link(onCreate,9393710:doEnum,[])
}
Add(ArrayEnum,9393710,287,245)
{
 link(onItem,9630363:doMessage,[])
 link(Array,5211844:array,[])
}
Add(Message,9630363,364,245)
{
}
Add(InlineCode,5211844,287,168)
{
 VarPoints=#5:array|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|5:const|46: filedata:array[0..3] of Byte = (77,90,128,0);|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|0:|5: end;|0:|14:implementation|0:|4:end.|
}

Add(MainForm,2953706,203,210)
{
 Position=1
 link(onCreate,8007639:doEnum,[])
}
Add(ArrayEnum,8007639,280,224)
{
 link(onItem,10843798:doMessage,[])
 link(Array,7715937:Array,[])
}
Add(IntegerArray,7715937,280,161)
{
 IntArray=['0'=77,'0'=90,'0'=128,'0'=0]
 FileFormat=1
}
Add(Message,10843798,350,224)
{
}

#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

const
 arr:Array[0..3] of byte = (77,90,128,0);

type
 THiAsmClass = class(TDebug)
   private

   public

   procedure arr_(var _Data:TData; Index:word);

 end;
 
implementation


procedure THiAsmClass.arr_(var _Data:TData; Index:word);
begin
 if arr = nil then
  _data.data_type := data_array;
  _data.idata := integer(arr);
end;

end.

Add(InlineCode,2741100,301,238)
{
 WorkPoints=#6:doBite|
 EventPoints=#6:onBite|10:onBiteStop|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|5:const|44: arr:array[0..1536] of Byte = (77,90,128,0);|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|20:   onBite:THI_Event;|24:   onBiteStop:THI_Event;|49:   procedure doBite(var _Data:TData; Index:word);|5: end;|1: |14:implementation|0:|0:|58:procedure THiAsmClass.doBite(var _Data:TData; Index:word);|14:var i:integer;|5:begin|29: for i := 0 to Length(arr) do|7:  begin|28:   dtInteger(_Data, arr[i]);|30:   _hi_onEvent_(onBite,_Data);|5: end;|25: _hi_OnEvent(onBiteStop);|4:end;|0:|4:end.|
}