Текущий архив: 2003.07.03;
Скачать: CL | DM;
Вниз
Динамика Найти похожие ветки
← →
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; зделал?
в третьих, давай полный код процедуры
Страницы: 1 вся ветка
Текущий архив: 2003.07.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.019 c
