如何实现多重继承？

Question

原先的二重程序的程序是这样的
program ab;
Type ta=class
procedure show:virtual;
end;
tb=class(ta)
procedure show:override;
end;
procedure ta.show
begin
showmessage('a');
end;
procedure tb.show;
begin
inherited show;
showmessage('b')
end;现在我有个实例类c，它继承了b
它要除了显示‘a’,'b',还要显示'c'
请问各位大侠怎么做阿      

Answer 1

你他妈的说得一塌糊涂！
program ab;
 
  Type ta=class
    procedure show:virtual;
  end;
  tb=class(ta)
    procedure show:override;
  end;procedure ta.show
begin
  showmessage('a');
end;procedure tb.show;
begin
  showmessage('b')
end;//如下为tc得代码
...
  tc = class(tb)
  begin
    procedure show; override;
  end;
...  procedure tc.show;
  begin
    showmessage('c');
  end;//若要把a b c都显示出来得话
  可以这样写
  ta(tc).show;
  tb(tc).show;
  tc.show;  这就是多态性