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

Вниз

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

 
БурЖуй   (2003-02-02 13:19) [0]

Уважаемые мастаки! Есть у меня программаактивно юзает большие объемы памяти, и я заранее при написание программы не знаю насколько много будет запесей в массиве, поэтому приходиться задавать большую размерность массивов. Мне сказали что можна пользоваться динамическими массивами, которые заранее не имеют размерности. Расскажите как ими пользоваться? И как сделать так, чтобы при записе и чтение из такого массива вызывалась какая-то процедура ?
Заранее спасибо!


 
JibSkeart   (2003-02-02 13:22) [1]

procedure myArr(Var arr)
Var
i:integer;
begin
i := HIGH(arr);
ShowMessage("Count = " + IntToStr(i));
end


 
БИС   (2003-02-02 16:01) [2]

раньше и без массивов хорошо распределялась память динамически.
А если ты хочешь, чтоб вызывалась какая-то там обработка дополнительная, то помести его в объект и напиши функции для помещения и чтения i-го элемента.


 
mrcat   (2003-02-02 16:19) [3]

array of например_integer

f1


 
mate   (2003-02-02 17:04) [4]

Вообщем пишешь
a:array of integer;
если матрица
a:array of array of integer;
Установить длину массива (строки)
setlength(a,i)- где i-длина
или
setlength(a[j],i)
Учти что массив начинается с 0 и закончивается i-1
Так же => матрица может быть не прямоугольной т.е.

1 2 3 4
5 6
5 7 9 3 12


 
БурЖуй   (2003-02-03 18:31) [5]

mate, спасибо, а как получать текущую длина матрицы?


 
BOA_KAA   (2003-02-03 18:39) [6]

a: array of TSomeType;
...

High(a)-Low(a)+1


 
Романов Р.В.   (2003-02-03 20:03) [7]

F1 - Length



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

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

Наверх





Память: 0.45 MB
Время: 0.01 c
3-38076
BubbleGum
2003-01-27 09:19
2003.02.13
Произвести обсчет ДБасе данных из сервера IB 6.0


3-38073
ij
2003-01-26 21:46
2003.02.13
связь нескольких БД


1-38365
Бук
2003-02-03 07:55
2003.02.13
try... except


1-38178
ST
2003-02-04 18:38
2003.02.13
Длинные циклы


14-38435
Неуловимый Извращенец
2003-01-25 22:25
2003.02.13
Вред от компьютера





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский