Вниз
Скачать: 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.028 c
2-1177762692
allucard
2007-04-28 16:18
2007.05.20
Как проверить разрешение экрана и и изменить его из программы?


2-1178025607
gloom
2007-05-01 17:20
2007.05.20
Как добавить прогу в автозагрузку


6-1163515446
Konwin
2006-11-14 17:44
2007.05.20
Использование TServerSocket/TClientSocket + TThread


15-1176907923
Delus
2007-04-18 18:52
2007.05.20
Анимация GIF ов


6-1163694731
Tiberius
2006-11-16 19:32
2007.05.20
Текст из браузера




   Наверх