[Grumer]

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

[AlexSku]

Вот пример для нединамического массива, но ф-ии 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;

[zip000]

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

[Navi1982]

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

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