ООП делфи

[phasha]

нужно было написать программу которая создает и удаляет двигающиеся шары по желанию.все unitы составил и процедуры описал.есть какая то ошибка(((я не могу найтилаба раз.rar

[Neobrat]

вот в этом месте

if not field.AddShape(SpinEdit1.Value, ColorBox1.Selected) then
ShowMessage('нельзя');

объект field еще не создан. из за этого добавление не происходит

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

[phasha]

нет писал как раз таки я))

[phasha]

так а перед этим я описал события просто закомментарил, процедуры tform1.formcreate и прочие.почему они не работают?(

[phasha]

еще ошибка сдесь

if shape[i]=nil then begin
    shape[i]:=tcircle.create(Radius,Height,Width,i,left,top,color,canvas);
  end;

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

[phasha]

Сообщение от Neobrat

вот в этом месте



объект field еще не создан. из за этого добавление не происходит

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

кстати создает обьект конструктор который описан в юните 3))

[phasha]

ну так как сделать чтоб шары создавались на холсте?((

[Neobrat]

нет писал как раз таки я))

так а перед этим я описал события просто закомментарил, процедуры tform1.formcreate и прочие.почему они не работают?(

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

кстати создает обьект конструктор который описан в юните 3))

Серьезно!? (извиняюсь за издевку)

как раз это и делается в тех местах которые вы якобы за комментировалии.
поставьте брекпоин в процедуре TField.Create и покажите мне, в какой момент она вызывается...

p.s.
Хотите чтоб вам помогли, будьте откровенны.

[phasha]

а понял почему процедуры не работали.после привата надо было ставить.

 private
    procedure formclose(sender: tobject; var action: TCloseAction);
    procedure formcreate(sender: tobject);
    procedure formpaint(sender: tobject);

[phasha]

Сообщение от Neobrat

p.s.
Хотите чтоб вам помогли, будьте откровенны.

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