ООП Опции

[klem4]

Есть примерно такая вещь :

type

   TOPoint = object
       x,y : word;
       constructor Init(a,b,c,d : word);
       procedure Show; virtual;
       Destructor Done;
   end;

   TOLine = object(TOPoint)
      x1,y1 : word;
      constructor Init(a,b,c,d : word);
      procedure Show; virtual;
      destructor Done;
   end;

constructor TOPoint.Init(a,b,c,d : word);
begin
   x := a;
   y := b;
end;

destructor TOPoint.Done;
begin
end;

procedure TOPoint.Show;
begin
   PutPixel(x,y,13);
end;

constructor TOLine.Init(a,b,c,d : word);
begin
   x  := a;
   y  := b;
   x1 := c;
   y1 := d;
end;

destructor TOLine.Done;
begin
end;

procedure TOLine.Show;
begin
   Line(x,y,x1,y1);
end;

Так вот можно ли что-то поменять для того, чтобы написанная процедура Work с входным параметром - переменной типа родительского объекта (в данном случае TOPoint) принимала и переменную P : TOPoint и переменную L : TOLine; и выполняля для них соответствующие методы Show ... ?

Сообщение отредактировано: klem4 - 7.02.2006 11:48

[volvo]

А ничего менять не надо, просто опиши Work:

Procedure Work(Var Obj: TOPoint);
Begin
  Obj.Show;
End;

ПолиморфизЪм в действии

Если у тебя так НЕ сработало - полный код в студию...

P.S. Деструктор я бы тоже сделал виртуальным