Make(delphi) ver(4.03 build 180) Add(MainForm,12523360,147,203) { Left=100 Top=100 Width=454 Height=383 Caption="Пример работы с массивом" Point(doAlign) link(onCreate,10514692:doRandomize,[(287,223)(287,188)]) } Add(Button,1390080,147,161) { Left=8 Top=145 Width=130 Caption="Заполнить массив" link(onClick,15254541:doEvent1,[]) } Add(For,14426403,245,175) { link(onEvent,10514692:doRandom,[]) link(End,3980222:Text,[]) } Add(Random,10514692,301,175) { Mode=1 link(onRandom,16052172:doEvent1,[]) } Add(Hub,16052172,364,175) { link(onEvent1,7129595:doString,[(500,181)(500,237)]) link(onEvent2,2078156:doAdd,[(392,188)(392,251)]) } Add(ArrayRW,2078156,406,231) { Index=Integer(3) link(Array,15494502:Var2,[]) link(Index,15695795:Var2,[]) } Add(Button,14347262,147,336) { Left=13 Top=243 Width=130 Caption="Чтение из массива" link(onClick,8389521:doEvent1,[]) } Add(FormatStr,7129595,511,231) { Mask="%1;%2" link(onFString,12380196:doAdd,[]) link(Str1,15695795:Var3,[(517,213)]) } Add(Hub,15254541,210,161) { OutCount=3 link(onEvent1,6210026:doClear,[(237,167)(237,97)]) link(onEvent2,12380196:doClear,[(554,174)(554,244)]) link(onEvent3,14426403:doFor,[]) } Add(ListBox,6988851,567,371) { Left=148 Top=183 Width=287 Height=155 } Add(For,4136245,273,343) { link(onEvent,13390617:doRead,[(335,349)(335,377)]) link(End,1024364:Var,[]) } Add(Hub,8389521,203,336) { link(onEvent1,6988851:doClear,[(537,342)(537,384)]) link(onEvent2,4136245:doFor,[]) } Add(RealArray,6210026,406,77) { RealArray=[] } Add(GetDataEx,15695795,413,208) { Angle=3 link(Data,14426403:Position,[(251,213)]) } Add(ArrayRW,13390617,476,371) { link(onRead,6988851:doAdd,[]) link(Array,11183779:Var,[]) link(Index,4136245:Position,[(489,361)(430,361)(430,394)(279,394)]) } Add(GetDataEx,15494502,406,117) { link(Data,6210026:Array,[]) } Add(InfoTip,31043,490,147) { Info=#8:Контроль| Font=[Times New Roman,9,0,16711680,1] HAlign=2 Width=120 Height=137 Margin=5 } Add(InfoTip,13361418,200,151) { Info=#43:Генерация и запись случайных чисел в массив| Font=[Times New Roman,9,0,16711680,1] VAlign=2 Width=281 Height=137 Margin=5 } Add(InfoTip,5661685,193,305) { Info=#17:Чтение из массива| Font=[Times New Roman,9,0,16711680,1] VAlign=2 Width=421 Height=123 Margin=5 } Add(Image,5743140,476,77) { Left=80 Top=10 Width=60 Height=60 ViewStyle=1 Picture=[ZIPC204000078DACD8FB10DC2301045CF860128E970C90A292C99481414295250D06510A478148F1231493609673BC7250A82832AFE3AFFEFEF174B29ABC716D22A718E38FB7114EC6083EEC7FBD9BA03F47879C038B4EB53778B9213DD55F4EA8B0A229EA9508BF8FA6FBE1ADA46373A66F26513A92C8FC969975AF265E399BF0C2D68D0B46751268F14F3BD22E58ECFD432DF600A2A2472EA53656AE4CFF8B5F289CB3E3F658F14F34E91D23FBEF139FF5D4CB9938467EA67DE8A78CBC958537C624D61ACECD5B5EB0943D1F81C] } Add(Image,6633072,490,91) { Left=13 Top=10 Width=60 Height=60 ViewStyle=1 Picture=[ZIPC204000078DA73F23DC4C200064E40AC01C41250CCC820C0C00CA41BA0F228A08681E10150521EC8FC5F3FF4E181D003910722F1AA00CA1F0885F1168412632A42D58240A2D40792ADDE175D4E80498009433D5C550394F59E1104612C181F26D68050EF0922CF319E6384911088CC86A942B0D632AE6584913088CC43A84F00B37A187B1861240222F80908F5AE20329B319B11462243980844153EF5A822E8EAFFD77B318220B2D9C82208F50E8EC4C4174215C9EA6D89526F8B6029D82A58E253AB60A9604B9CA9831D020046091439] } Add(LineBreak,638537,357,133) { Caption="Array" Type=1 Color=12241150 link(Data,15494502:Var1,[(363,122)]) Primary=[11183779,119,189] } Add(LineBreak,4637068,413,133) { @Color=16777137 Caption="Count" Type=1 Color=12254462 link(Data,6210026:Count,[]) Primary=[1024364,-133,182] } Add(StringTable,12380196,567,231) { Left=150 Top=10 Width=285 Height=155 Columns=#8:Index=50|8:Data=150| Grid=0 } Add(Label,15803565,560,77) { Left=10 Top=175 Width=425 Height=2 Color=0 Caption="" AutoSize=1 } Add(Edit,3980222,252,105) { Left=90 Top=105 Text="10" } Add(Label,674054,574,91) { Left=10 Top=100 Width=65 Height=35 Caption="Количество записей" AutoSize=1 Alignment=1 }