|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Заполнение динамического массива
Есть двумерный динамический массив, типа Integer..требуется заполнить его случайными числами... у меня при заполнении через цикл выкидывает в окно дебагера....прошу выложите кусок рабочего кода, кто знаком с этим...заранее СПС
|
#2
|
|||
|
|||
Вот пример для нединамического массива, но ф-ии Low и High находят границы и для дин. массива.
Код:
type ta = array[1..10] of Integer; var a: ta; b: array[1..10] of ta; procedure TForm1.Button1Click(Sender: TObject); var bi, aj, c: Integer; begin Randomize; c:= 0; for bi:= Low(b) to High(b) do for aj:= Low(a) to High(a) do begin b[bi][aj]:= Random(100); Inc(c); end; ShowMessage(IntToStr(c)); end; |
#3
|
||||
|
||||
AlexSku а где в вашем примере динамические массивы????????????
Код:
var ar : array of array of Integer; i, j : Integer; const ArrSizeX = 100; // Здесь указываете размер массива по Х ArrSizeY = 100; // и по У begin SetLength(ar, ArrSizeX); // Это инициализация массива for i := 0 to ArrSizeX - 1 do SetLength(ar[i], ArrSizeY); for i := 0 to ArrSizeX - 1 do // А это заполнение данных for j := 0 to ArrSizeY - 1 do ar[i, j] := Random(1000); Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#4
|
|||
|
|||
Grumer, скорее всего ты не правильно обрабатываешь сам массив. В динамическом массиве индексация происходит от 0 до n-1 ячеек.
смотри код от zip000 и обрати внимание на "ArrSizeX - 1" и "ArrSizeY - 1". |