Помогите побороть inaccessible value

Доброго дня !
Имеется следующий код:

type TAuthor =record
    ln:string;
    sn:string;
    fn:string;
    id:integer;
 end;

var 
author:array of TAuthor;

procedure TMainForm.Button1Click(Sender: TObject);
begin
author[i].id:=0;

author[i].ln:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['last-name'].Text;      

author[i].sn:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['second-name'].Text;      

author[i].fn:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['first-name'].Text;
end;

При присвоении author[i]. возникает ошибка inaccessible value
если избавиться от массива то присвоение значений объекту author. проходит нормально.

А массив какой длины ? А переменная i чему равна ?

SSharapov,

"i" проинициализирована? Или все летит не известно куда?

DimaBr
А массив какой длины ? А переменная i чему равна ?

Длина массива не изначально не известна. Но вряд ли будет больше 20 элементов.

Переменная "i":

procedure TMainForm.Button1Click(Sender: TObject);
var 
i:integer;
begin
for i:=0 to 20 do 
begin
if ... then  
  begin
    author[i].id:=0;
 author[i].ln:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['last-name'].Text;      

author[i].sn:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['second-name'].Text;      

author[i].fn:=mainform.xmld.DocumentElement.ChildNodes[desc].ChildNodes[tinfo].ChildNodes[i].ChildNodes['first-name'].Text;
end;
end;
end;

Так нужно ж эту длину зарезервировать

SetLength(author,21)
for i:=0 to 20 do
.....

У Вас в цикле обрабатывается 21 элемент..

DimaBr
Так нужно ж эту длину зарезервировать SetLength(author,21) for i:=0 to 20 do .....

Спасибо! резервирование длины проблему решило.

Я думаю что нет, проблему резервированием длины не решить, проблема не в массиве...

with-фобия?

Хто здесь ?