Delphi - база знаний

         

Создание многомерного массива


Создание многомерного массива




type
PRow = ^TRow;
  TRow = array[0..16379] of Single;

  PMat = ^TMat;
  TMat = array[0..16379] of PRow;

var


  Mat: PMat;
  X, Y, Xmax, Ymax: Integer;

begin
  Write('Задайте размер массива: ');
  ReadLn(Xmax, Ymax);
  if (Xmax <= 0) or (Xmax > 16380) or (Ymax <= 0) or (Ymax > 16380) then
    begin
      WriteLn('Неверный диапазон. Не могу продолжить.');
      Exit;
    end;
  GetMem(Mat, Xmax * SizeOf(PRow));
  for X := 0 to Xmax - 1 do
    begin
      GetMem(Mat[X], Ymax * SizeOf(Single));
      for Y := 0 to Ymax - 1 do
        Mat^[X]^[Y] := 0.0;
    end;
  WriteLn('Масси инициализирован и готов к работе.');
  WriteLn('Но эта программа закончила свою работу.');
end.

- Steve Schafer

Взято из

Советов по Delphi от


Сборник Kuliba






Содержание раздела