Add(MainForm,5383353,322,112) { Width=308 } Add(InlineCode,490725,378,154) { 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:|28:_hi_OnEvent(out1, ar1[0,0]);|28:_hi_OnEvent(out1, ar1[0,1]);|28:_hi_OnEvent(out1, ar1[2,0]);|4:end;|0:|4:end.|0:|0:|0:|0:|0:|0:| link(out1,15938406:doAdd,[]) } Add(Button,4071366,322,154) { Left=15 Top=30 Width=75 Height=185 Data=String(я строка из кнопки) link(onClick,490725:in1,[]) } Add(ListBox,15938406,434,154) { Left=105 Top=5 Width=190 Height=250 }