ООП Опции

[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 15:48

[Altair]

my_point.init(1, 2, 3, 4);

my_point: TOPoint;

TOPoint = object
    x, y: word;
    constructor Init(a,b: word);

естественно, у конструктора в описании только 2 параметра...
просто опечатка , имелось ввиду my_point.init(1, 2 ); скорее всего.