帮忙看看！过程Test会依次有什么提示信息？？

Question

T_ClassA=class
public
  procedure ShowMessage;virtual;
end;T_ClassB=class(T_ClassA)
public
  procedure ShowMessage;override;
end;
procedure T_ClassA.ShowMessage;
begin
  ShowMessage('This is A_class');
end;procedure T_ClassB.ShowMessage;
begin
  inherited;
  ShowMessage('This is B_class');
end;
procedure Test;
var
  T1,T2:T_ClassA;
begin
  T1:=T_ClassA.Create;
  T2:=T_ClassB.Create;
  T1.ShowMessage;
  T2.ShowMessage;  
end;

Answer 1

呵呵，貌似ShowMessage('This is A_class');前要加个Dialogs.

Answer 2

'This is A_class''This is A_class'
'This is B_class'

Answer 3

不过要改
procedure T_ClassA.ShowMessage;
begin
  Dialogs.ShowMessage('This is A_class');
end;
procedure T_ClassB.ShowMessage;
begin
  Dialogs.ShowMessage('This is B_class');
end;