Цитата:
|
Сообщение от angvelem
Я ему уже отвечап, что первоначально у него неправильно создаётся класс.
Код:
Tcircle.CreateCr(X,Y,clrbx1.Selected,clrbx2.Selected); |
Действительно. Tpoint - это же у него класс, а я по привычке подумал что запись
Значит имеем в придачу ещё более грубую ошибку.
ТС, тебе нужно сохранять в массиве указатели на созданные объекты. Примерно так:
Код:
Inc(i); // Это более короткий аналог "i:=i+1"
fig[i] := Tcircle.CreateCr(X,Y,clrbx1.Selected,clrbx2.Selected); // Сохранили в очередном элементе массива указатель на созданный объект
А вот эти строки вообще не нужны - ведь в конструкторе эти присваивания уже делаются:
Код:
fig[i].x1:=X;
fig[i].y1:=Y;