Как правильно писать программы 2, Практическая часть Опции

[Bokul]

Ничего еще не сделал, но зато уже успел запутаться. Вот пытался реализовать инициализацию sos - создания списка и инициализацию предка - добавить себя в этот список, но ничего не получается.

uses crt;
type
    ancestor=Object
              pos_x,pos_y:integer;
              constructor init;
    end;

    TList = ^TNode;
    TNode = record
             Info:ancestor;
             Next:TList;
     end;

     sos=Object
             ActiveObject:^ancestor;
             Objects:TList;
             constructor init;
     end;

constructor ancestor.init;
var nod,P: TList;
begin
pos_x:=10;
pos_y:=10;
new(nod);
nod^.Info:=ancestor;// не знаю, что присваивать тут.
nod^.Next :=nil;
if sos.Objects=nil then // Что за ошибка Error: Class isn't a parent class of the current class
   sos.Objects:=nod
else
     begin
          P:=sos.Objects;
          while nod^.Next <> nil
	  do P:=P^.Next;
          P^.Next:=nod
     end;
End;

constructor sos.init;
begin
Objects:= nil
end;

Сообщение отредактировано: volvo - 2.11.2006 16:49

[volvo]

Altair, ау!!! Ты где? И после этого ты тоже скажешь, что class-member-ы не нужны?

По теме: Bokul, ты не можешь обращаться к полю/методу класса, нужно создать экземпляр этого класса, и его поле проверять на что-то... Или... Class Functions - см. здесь: Fpc, методы класса