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

Вниз

Проблема с заполнением динамических массивов.   Найти похожие ветки 

 
UDS   (2003-02-25 21:28) [0]

Как заполнить дин. массив типа - A:array of integer
Суть: Длина массива (n) должна задаваться пользователем через Edit.
После нажатия на кнопку Button, в Label выводится массив длиной n, из чисел по порядку (т.е. обыкновенным счетчиком FOR):

/////////отрывок программы
var
a:array of integer;
n,i:integer;

////////обработчик нажатия на кнопку Button1
begin
n:=strtoint(Edit1.text);
SetLength(A,n);
/////////Заполнение массива
for i:=1 to n do
begin
A[i]:=i;
/////////Заполняем Label1
label1.caption:=label1.caption+intotstr(A[i]);
end;
end.

Помогите разобраться в чем косяк вышеуказанного кода. Есть подозрение на конфликт с высвобождением памяти. Заранее благодарен.


 
Романов Р.В. ©   (2003-02-25 21:36) [1]

for i:=0 to n-1 do


 
Guerrillero ©   (2003-02-25 21:37) [2]

в справку заглядывать лень?
Dynamic arrays are always integer-indexed, always starting from 0.


 
Cr@sh ©   (2003-02-25 21:38) [3]

1) SetLength(A,n-1);!!!
Счет элементов массива идет с нуля...

2) Следовательно

for i:=0 to n-1 do

3) В конце пиши finalize(a)


 
Guerrillero ©   (2003-02-25 21:39) [4]

2 UDS
и память не забудь освободить


 
Cr@sh ©   (2003-02-25 21:39) [5]

опс... опоздал %(


 
UDS   (2003-02-25 21:48) [6]

Всем огромное спасибо! В справку смотреть не лень. Просто английским владею с трудом. С необходимостью применения "динамики" сталкиваюсь впервые. Желаю всем успехов. Еще раз спасибо!!!



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
3-16922
Rule
2003-02-15 23:59
2003.03.06
Надо перенести базу данных Аксесс97 на удаленный FB


4-17442
real_dimedrol
2003-01-18 03:24
2003.03.06
Ловушки Windows


3-16945
Olegon
2003-02-16 15:16
2003.03.06
Поиск одного значения в нескольких полях


14-17362
delpher_gray
2003-02-18 14:50
2003.03.06
Новый сайт о Delphi ! Delphi - Программирование в Delphi !


1-17189
Vadim840
2003-02-24 12:46
2003.03.06
Поиск файла