Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
6-1163400550
NovaC
2006-11-13 09:49
2007.05.20
Атрибут файла через Indy->IdFTP SOS!!!


15-1176851446
Германн
2007-04-18 03:10
2007.05.20
Вот интересно, это очепятка где-нить или совпадение?


1-1174916951
Dismember
2007-03-26 17:49
2007.05.20
Поддержка горячих мультимедиа клавиш


8-1158083361
DelphiN#1
2006-09-12 21:49
2007.05.20
Bitmap


15-1176755469
ppcumax
2007-04-17 00:31
2007.05.20
Где взять библиотеку kernel32.dll?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский