Цитата:
|
Сообщение от 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).