Советы по Delphi


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


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

- Steve Schafer [000764]




Начало    Вперед



Книжный магазин