Demo_S |
опубликован 10-07-2001 23:34 MSK
Какая-то фигня с ООП в паскале происходит. Есть type shape=object procedure move(...):virtual; procedure draw(...):virtual; ... Далее наследуется type FillCircle=object(shape) в котором пеереопределяются procedure move(...):virtual; procedure draw(...):virtual; и уже от него наследуется BarShape=object(FillCircle) и в нем в свою очередь переопределяется procedure draw(...):virtual; причем всегда проц move использует draw. Как мне сделать, чтобы переменная типа BarShape при вызове метода move использовала свой draw. То есть для bs:BarShape вызывается bs.move; но почему-то(?) из bs.move вызывается не BarShape.draw а FillCircle.draw. Вроде ж все виртуальные, в чем же дело... Буду благодарен за любые советы.
|