静态方法，虚方法和动态方法

（1）虚方法和动态方法一样：

      它的结果只和谁创建它有关系，和其它转换没有关系；

（2）静态方法

      和它的当前类型有关系

 

 1 类方法
 2 type
 3   TClassA = class
 4   public
 5      function AAA():string;virtual;//虚方法
 6      function BBB():string;        //静态方法
 7   end;
 8 
 9   TClassB=class(TClassA)
10   public
11      function AAA():string;override;//重写
12      function BBB():string;
13   end;
14 
15 
16 implementation
17 
18 { TClassA }
19 
20 function TClassA.AAA: string;
21 begin
22   result:= 'TCLassA.AAA';
23 end;
24 
25 function TClassA.BBB: string;
26 begin
27     result:= 'TClassA.BBB';
28 end;
29 
30 { TClassB }
31 
32 function TClassB.AAA: string;
33 begin
34     result:= 'TClassB.AAA';
35 end;
36 
37 function TClassB.BBB: string;
38 begin
39     result:= 'TClassB.BBB';
40 end;
41 
42 end.

方法调用
var
  Form1: TForm1;
  a:TClassA;
  b:TClassB;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  a:= TClassA.Create;
  Self.mmo1.Text:= Self.mmo1.Text+a.AAA+#13#10;
  Self.mmo1.Text:= Self.mmo1.Text+a.BBB+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassB(a).AAA+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassB(a).BBB+#13#10;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  a:= TClassB.Create;
  Self.mmo1.Text:= Self.mmo1.Text+a.AAA+#13#10;
  Self.mmo1.Text:= Self.mmo1.Text+a.BBB+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassA(a).AAA+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassA(a).BBB+#13#10;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  b:= TClassB.Create;
  Self.mmo1.Text:= Self.mmo1.Text+b.AAA+#13#10;
  Self.mmo1.Text:= Self.mmo1.Text+b.BBB+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassA(b).AAA+#13#10;
  Self.mmo1.Text:=Self.mmo1.Text+TClassA(b).BBB+#13#10;
end;

end.

 

 

执行结果分别为：
1. TCLassA.AAA
   TClassA.BBB
   TCLassA.AAA
   TClassB.BBB

2.TClassB.AAA
  TClassA.BBB
  TClassB.AAA
  TClassA.BBB 

3.TClassA.BBB
  TClassB.AAA
  TClassB.BBB
  TClassB.AAA