Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

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

 
Std   (2006-04-07 01:09) [0]

Доброго времени.
Подскажите можно ли ка кто добавлять в массив элементы не задавая при этом размер массива?
тоесть зделать типа

var
arr:array of integer;
n:integer;
begin
...
n:=0;
if a<15 then
arr[n]:=a;

при этом а берется из большого списка, и заранее не известно сколько будет элементов в вассиве..


 
unknown ©   (2006-04-07 01:40) [1]


> Std   (07.04.06 01:09)
> не задавая при этом размер массива

Как это вы себе представляете?

> при этом а берется из большого списка, и заранее не известно
> сколько будет элементов в вассиве

Ну и что?
Допустим n - счетчик строк в списке, a - значение из строки списка, тогда
получится примерно следующее:
if n=Length(arr) then
 SetLength(arr,n+1);
arr[n]:=a;


 
Германн ©   (2006-04-07 02:02) [2]


> Std   (07.04.06 01:09)  
>
> Доброго времени.
> Подскажите можно ли ка кто добавлять в массив элементы не
> задавая при этом размер массива?

Нельзя, никак, никогда.  Увы.
Тебе посоветовали способы оптимизации вызовов SetLength при загрузке файла в динамический массив. Имхо - это максимум возможного.


 
Anatoly Podgoretsky ©   (2006-04-07 09:18) [3]

Можно, но только будет рантайм ошибка


 
tesseract ©   (2006-04-07 09:42) [4]

tlist - ему размер не задаётся.


 
Std   (2006-04-07 15:25) [5]

вот зделал вот так:

var
i,j:integer;
arr:array of integer;
begin
i:=0;
j:=1;
цикл который проверяет весь список
if x<15 then
begin
 SetLength(arr,j);
 arr[i]:=a;
 inc(i);
 inc(j);
end;
конец цикла

работает нормально, так что всем спасибо за беспокойство



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

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.011 c
15-1143740118
xayam
2006-03-30 21:35
2006.04.23
VMWare 5.5


6-1136925616
AT
2006-01-10 23:40
2006.04.23
Получить рабочюю группу по IP адресу


3-1141299314
Alex2006
2006-03-02 14:35
2006.04.23
Выбор неверно заведённой информации


15-1144092909
Гарри Поттер
2006-04-03 23:35
2006.04.23
Вы можете поверить в "зеленых человечков"?


1-1142766204
ho5ok
2006-03-19 14:03
2006.04.23
Socket showmessage( no connection );





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