Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Динамическое создание объектов в glscene   Найти похожие ветки 

 
Goldseeker   (2004-12-24 21:01) [0]

почему этот код не работает, причем дает ошибку лишь при повторном нажатии кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(sphere,length(sphere)+1);
sphere[length(sphere)]:=msphere(gldummycube1.AddNewChild(msphere)) ;
sphere[length(sphere)].Position.x:=random(2);
sphere[length(sphere)].Position.y:=random(2);
sphere[length(sphere)].Position.z:=random(2);
end;
sphere - динамический массив msphere
msphere - класс потомок tglsphere


 
kerby   (2004-12-27 09:39) [1]

паскальчик учить надо

переменные:
sphere:array of tglsphere;
count:integer;

инициализация:
count:=0;
setlength(sphere,count);

обработчик:
inc(count);

SetLength(sphere,count);
sphere[count-1]:=TGLSphere(GLDummyCube1.AddNewChild(TGLSphere));
      ^^^^^^^^
with sphere[count-1] do
           ^^^^^^^^
begin
Position.SetPoint(random(5),random(5),random(5));
end;



Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.05 c
4-1107955685
snake_r
2005-02-09 16:28
2005.03.20
stFileSystem в TService


1-1109850702
Надежда
2005-03-03 14:51
2005.03.20
Диапазон в Excel, закрываемый вставленным изображением


1-1109951514
Paul__
2005-03-04 18:51
2005.03.20
Сгенерировать уникальное имя для компонента в пределах приложения


14-1109285890
Vasya.ru
2005-02-25 01:58
2005.03.20
Пятничные задачки или типа того


14-1109503478
Чеширский_Кот
2005-02-27 14:24
2005.03.20
Объявление: Ищу компонент