[Grumer]

Есть двумерный динамический массив, типа Integer..требуется заполнить его случайными числами... у меня при заполнении через цикл выкидывает в окно дебагера....прошу выложите кусок рабочего кода, кто знаком с этим...заранее СПС

[AlexSku]

Вот пример для нединамического массива, но ф-ии Low и High находят границы и для дин. массива.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;

[zip000]

AlexSku а где в вашем примере динамические массивы????????????

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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);

[Navi1982]

Grumer, скорее всего ты не правильно обрабатываешь сам массив. В динамическом массиве индексация происходит от 0 до n-1 ячеек.

смотри код от zip000 и обрати внимание на "ArrSizeX - 1" и "ArrSizeY - 1".