Динамическое создание объектов

[LepihinMS]

Скажите мне для начала как в процессе выполнения программы создать на форме кнопку на пример.

[ЧИЖ]

type
  TForm1 = class(TForm)
   .......................................... 
 
   procedure MyButtonClick(Sender: TObject);
  private...................
..................................
 
var MyButton:TButton;
 
 
procedure TForm1.MyButtonClick(Sender: TObject);
begin
{твой код}
end;
 
....................
 
MyButton:=Tbutton.Create(Owner);
MyButton.Parent:=self;
MyButton.Height:=20;
MyButton.Width:=80;
MyButton.Left:=100;
MyButton.Top:=100;
MyButton.Visible:=true;
MyButton.Caption:='MyCaption';
MyButton.OnClick:=Form1.MyButtonClick;

[LepihinMS]

Создаю тремя нажатиями на Button1 три кубика.

var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Sfera1: TGLCube;
begin
inc(i);
Sfera1:=TGLCube.Create(GLScene1);
Sfera1.Position.X:=0;
Sfera1.Position.Y:=0;
Sfera1.Position.Z:=1;
Sfera1.Name:='S'+IntToStr(i);
Sfera1.Parent:=GLCube1;
end;
end.

А как мне теперь переместись/покрутить/перекрасить их уже созданных?

[ЧИЖ]

а где ты их 3 создаешь помоему одну но 3 раза

чтоб создать 3 надо чтоб их и было 3 например массив

Sfera:array[1..3] TGLCube;

создаешь естественно по элементно

и к стати почитай предыдущий пост я там дописал то что сразу забыл написать

[LepihinMS]

Спасибо, с массивом получается почти то что мне надо. Сейчас перелопачу свою игру под этот метод. А дальше видно будет.

Все равно ерунда какая то! Как тогда создают почти безграничное количество объектов? Я видел где-то пример где из трубы сыплются сотни шариков. На "Sfera:array[1..1000] TGLCube;" - никакой оперативы не хватит. Что-то ты, товарищ, напутал.

[ЧИЖ]

а ты о динамических массивах слыхал

var arr:array of MyType;
MyLength:word;
 
SetLength(arr,MyLength);
 
MyLength:=length(arr);

увеличить длинну массива на 1 можно например так

SetLength(arr,length(arr)+1);

индексация естественно начинается с 0

а тысячи шариков можно сделать например так

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

и к стати если я не ошибаюсь у тебя 3D игра?
попробуй использовать Vertex Shaider он ведь умеет множить объекты
(много одинаковых объектов по разному себя ведут и весит это далеко не столько сколько такое же количество независимых объектов)

и вообще как насчет того чтобы написать не очень силиный для начала физ двиг и рендерер к нему

[LepihinMS]

Ясно что ничего не ясно.

[ЧИЖ]

а что не ясного динамические массивы или Vertex Shaider

если последнее то тут я тебе не помогу но игра написанная с их использованием была бы достаточно профессионольо сделана

а с динамическими массивами все просто

задаешь массив без указания его размера

arr:array of TGLCube;
i:word;


допустим что тебе надо сделать 10 кубов

i:=10;
setlength(arr,i);
for i:=0 to 9 do begin
arr[i]:=TGLCube.create.........
................................... ....
end;

а потом их должно стать на 5 больше

setlength(arr,length(arr)+5);

for...................

апотом на 10 меньше

setlength(arr,length(arr)-10);
................................... .....

а потом вообще нестать

setlength(arr,0);

в чем проблема то

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

[LepihinMS]

Помню пример видел. Жмешь на кнопку и из трубы сыплются сотни сфер. Как автор примера добился этого?

http://www.server-c.pochta.ru/TANK.rar - используется массив из 20 TGLActor. Кушает 40Мб оперативы! Гадость какая-то.

[ЧИЖ]

а можт исходник а не прогу так искать пути решения проблемы было бы проще

и еще для более быстрой связи есть ICQ