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




Вниз

Создание и удаление динамических массивов 


kalinka   (2002-04-09 09:48) [0]

Есть динамический массив MyMax с длиной Length_MyMax.
Мне надо увеличить его длину на 1.
Пишу следующее:

//Создаем временный массив MyMax_Tmp с длиной Length_MyMax+1
Length_MyMax := Length_MyMax+1;
SetLength(MyMax_Tmp, Length_MyMax);
//Заполняем временный массив значениями из MyMax
For i := 0 to Length_MyMax do MyMax_Tmp[i] := MyMax[i];
//Освобождаем массив MyMax
Finalize(MyMax);

//Создаем массив MyMax с НОВОЙ длиной Length_MyMax
SetLength(MyMax, Length_MyMax); //*ОШИБКА*//
//Заполняем массив MyMax значениями из MyMax_Tmp
For i := 0 to Length_MyMax do MyMax[i] := MyMax_Tmp[i];
//Освобождаем временный массив
Finalize(MyMax_Tmp);
//************************************************

В месте, обозначенном //*ОШИБКА*// выдается ошибка: access violation at 0x00406a79 write of address 0x00030e94

Зато, если я в этом месте пишу SetLength(MyMax, Length_MyMax-1), то есть создаю его с прежней длиной, то ошибки нет.

Как мне увеличить длину динамического массива?



-=CrazyFish=-   (2002-04-09 09:59) [1]

нужно писать
For i := 0 to Length_MyMax-1 do

При увеличении длины динамического массива данные в нем не теряются, поэтому временный массив MyMax_Tmp не нужен



kalinka   (2002-04-09 10:06) [2]

-=CrazyFish=- ©
ААА, глупая я, глупая!!!! Я же знаю, что надо писать
For i := 0 to Length_MyMax-1 do
Сглупила. Бывает. Утро раннее было. :) Бывает, уткнешься в какую-нибудь ошибку, а элементарной лажи-то и не замечаешь.
А за совет, спасибо большое!



kalinka   (2002-04-09 10:09) [3]

Ха-ха, работает!!! Теперь это выглядит гораздо короче:

Length_MyMax := Length_MyMax+1;
SetLength(MyMax, Length_MyMax);



Miwa   (2002-04-09 10:17) [4]

Будет выглядеть еще короче, если написать inc(Length_MyMax) ;o)



Kornet   (2002-04-09 10:31) [5]

а не проще писать вот так:
SetLength(MyMax_Tmp, High(MyMax_Tmp)+2); - увеличение массива MyMax_Tmp на один элемент?



Kornet   (2002-04-09 10:33) [6]

сорри, SetLength(MyMax, High(MyMax)+2);



kalinka   (2002-04-09 10:48) [7]

Miwa ©
Будет :)))

Kornet ©
спасибо, работает =:)




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




Наверх





Память: 0.72 MB
Время: 0.047 c
14-70023          Рамиль                2002-03-17 17:22  2002.04.22  
Помогите настроить сеть на Win95/98 для работы с TCP/IP


3-69664           ruslan_as             2002-04-02 18:08  2002.04.22  
ClienDataSet в InterBase


1-69782           Jaxtor                2002-04-10 12:07  2002.04.22  
Закрытие окна MDIChild программным методом


1-69868           VAleksey              2002-04-09 08:54  2002.04.22  
Копирование каталогов


3-69735           Ежик                  2002-04-01 13:30  2002.04.22  
Как програмно посчитать кол-во записей в БД?