[Igornv]

Возникла проблема. Пишу в коде:

SetLength(Directory[IDToNum(DirID)].Files, 3);
writeln('Files: ', length(Directory[IDToNum(DirID)].Files));
Directory[IDToNum(DirID)].Files[1] := TFile.Create(Name);
Directory[IDToNum(DirID)].Files[2] := TFile.Create(Name);
Directory[IDToNum(DirID)].Files[3] := TFile.Create(Name);

Создается массив в 3 элемента, ну все как и должно быть.

Пишу код, для добавления 1 элемента в конец массива:

SetLength(Directory[IDToNum(DirID)].Files, length(Directory[IDToNum(DirID)].Files) + 1); {увеличиваю размер динамичного массива на 1}
writeln('Files: ', length(Directory[IDToNum(DirID)].Files)); {вывод размера массива}
n := length(Directory[IDToNum(DirID)].Files); {номер максимального элемента массива}
Directory[IDToNum(DirID)].Files[n] := TFile.Create(Name); {создание крайнего элемента массива}

Вылетает прога. Обычно такое бывает при обращении к несуществующему элементу массива.

Кто поопытнее, может подскажете в чем дело, что я пишу не так?

[Burka]

Если мне не изменяет память, в SetLength увеличивать на 2 надо а не на один.

[Burka]

length(Directory[IDToNum(DirID)].Files); {номер максимального элемента массива}

в корне не верное утверждение, номер максимального элемента возвращает процедура High(Ar)

[Igornv]

Там я не максимальный, а последний элемент ищу. Чтобы при массиве в 5 элементов, запись шла именно в пятый. С +2 вместо +1 не помогло...

PS. Первый элемент создает нормально. Ошибка при попытке создания последующих.

[Drozh]

Элементы динамического массива нумеруются с НУЛЯ!!!
Т.е. если у тебя 3 элемента в массиве от их номера будут 0, 1 и 2, следовательно последний элемент массива это n-1, где n-длина массива

[Burka]

Я тебе прочто говорю

length(Directory[IDToNum(DirID)].Files); {номер максимального элемента массива}

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

З.Ы. да +2 это я напутал.

[Igornv]

Сообщение от Burka

Я тебе прочто говорю

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

З.Ы. да +2 это я напутал.

А High() возвращает именно последний элемент? Мне нужно чтобы функция возвратила именно тот, что появился крайним справа после увеличения размера массива на 1. Как это сделать?

[Alexo]

А High() возвращает именно последний элемент? Мне нужно чтобы функция возвратила именно тот, что появился крайним справа после увеличения размера массива на 1. Как это сделать?

Именно это High() и делает
Low() - делает все с точностью наооборот.

[Igornv]

Проблема решена. Дело было в кривом скрипте вывода массива.

[dmdx]

Сообщение от Igornv

Возникла проблема. Пишу в коде:

SetLength(Directory[IDToNum(DirID)].Files, 3);
writeln('Files: ', length(Directory[IDToNum(DirID)].Files));
Directory[IDToNum(DirID)].Files[1] := TFile.Create(Name);
Directory[IDToNum(DirID)].Files[2] := TFile.Create(Name);
Directory[IDToNum(DirID)].Files[3] := TFile.Create(Name);

Создается массив в 3 элемента, ну все как и должно быть.

Пишу код, для добавления 1 элемента в конец массива:

SetLength(Directory[IDToNum(DirID)].Files, length(Directory[IDToNum(DirID)].Files) + 1); {увеличиваю размер динамичного массива на 1}
writeln('Files: ', length(Directory[IDToNum(DirID)].Files)); {вывод размера массива}
n := length(Directory[IDToNum(DirID)].Files); {номер максимального элемента массива}
Directory[IDToNum(DirID)].Files[n] := TFile.Create(Name); {создание крайнего элемента массива}

Вылетает прога. Обычно такое бывает при обращении к несуществующему элементу массива.

Кто поопытнее, может подскажете в чем дело, что я пишу не так?

Попробуй так.

Код:

 Directory[IDToNum(DirID)].Files[n-1] := TFile.Create(Name); {создание крайнего элемента массива}

т.к. динамические массивы нумеруются с 0 а не с 1. т.е. если у тебя 3 элемента (1, 2, 3) то в массиве это будет так (0,1,2).