Вниз
Скачать: CL | DM;

Динамический двумерный массив   Найти похожие ветки 

← →
DelphiLexx ©   (2007-05-02 10:31) [0]

Как добавлять динамически элементы к двумерному массиву скажкем размерностью 3x8. Для одномерного я делал так:

type TDynArrOfInt = array of Integer;
var
 ArrOfInt: TDynArrOfInt;
 i: integer;
begin
 SetLength(ArrOfInt, 3);// Длина массива = 3

 // Вот так я добавляю элемент к массиву если длина его неизвестна
 SetLength(ArrOfInt, Length(ArrOfInt) + 1);
 ArrOfInt[Length(ArrOfInt) - 1] := 5;
end;


← →
ЮЮ ©   (2007-05-02 10:42) [1]

type
 TDynMatrixOfInt = array of array of Integer;
Или
 TDynMatrixOfInt = array of TDynArrOfInt;

Аналогично, вместо ArrOfInt используя ArrOfInt[i], т.к. array of array of Integer это одномерный динамический массив одномерных динамических массивов


← →
DelphiLexx ©   (2007-05-02 10:48) [2]


> Аналогично, вместо ArrOfInt используя ArrOfInt[i], т.к.
> array of array of Integer это одномерный динамический массив
> одномерных динамических массивов

Примером бы не мог отобразить


← →
ЮЮ ©   (2007-05-02 11:02) [3]

> Как добавлять динамически элементы к двумерному массиву
> скажкем размерностью 3x8.

Если сделать 4x8, то
SetLength(ArrOfInt, Length(ArrOfInt) + 1); //увеличили длину в первом измерении на 1
SetLength(ArrOfInt[High[ArrOfInt]], 8);    //установили длину 8 для последнего элемента массива

P.S. длины каждого элемента массива в первом измерении в принципе независимы и говорить  3x8 не совсем корректно., т.е. это может быыти и
(
 (1,2,3,4,5,6,7,8),
 nil,
 (1,2,3)
)


← →
{RASkov} ©   (2007-05-02 17:09) [4]

> [2] DelphiLexx ©   (02.05.07 10:48)

var Arr: array of array of Integer;
......
SetLength(Arr, 3, 8);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.049 c
2-1177689968
Oleg_teacher
2007-04-27 20:06
2007.05.20
Обьединит файлы


6-1162996359
iXT
2006-11-08 17:32
2007.05.20
E-Mail Indi 10 (BDS 4) TIdMessage DateTime format


4-1166124336
Shico
2006-12-14 22:25
2007.05.20
работа с выводами com порта


2-1178097367
Washington
2007-05-02 13:16
2007.05.20
Базы данных Access - удаление записей


11-1159541285
Redline
2006-09-29 18:48
2007.05.20
KolPng




   Наверх