Динамика

← →
Stalker (2003-06-20 23:36) [0]

Имеется обьявленный класс:

TTrack=class
StartPos:DWord;
lenght :DWord;
end;

TDisc=class
TrNumber:Cardinal;
TrNumbr:cardinal;
Tracks:array of TTrack;
function ReadTrk(n:cardinal):TTrack;
procedure ReadInf;
end;

PDisc=^TDisc;

После:

SetLength(Tracks,TrNumber);
for i:=0 to TrNumber-1 do Disc.Tracks[i]:=ReadTrk(i);

Где ReadTrk - функция инициализации поля Track

Вот талько на 11 шаге заполнения массива компилятор генерирует исключение и всё - game over!

Как этого избежать ?? Подскажите. Спб заранее.

← →
Palladin © (2003-06-20 23:51) [1]

не выполнять 11 шаг

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

во первых TDisc это и так указатель, не надо делать указатель на указатель... во вторых: ты Disc:=TDisc.Create; зделал?
в третьих, давай полный код процедуры

Динамика Найти похожие ветки