Юнит:| Код | unit Unit1;
interface
type TA = class ( TObject )
public
constructor create ;
procedure test1( );
procedure test2( );
end;
type TB = class ( TA )
public procedure test2( );
end;
implementation
constructor TA.create;
begin
end ;
procedure TA.test1( );
begin
test2();
end;
procedure TA.test2( );
var fh:Text;
begin
Assign( fh , 'testa.txt' );
Rewrite( fh );
Writeln(fh , 'TA: test2' );
Close( fh ) ;
end;
procedure TB.test2() ;
var fh:Text;
begin
Assign( fh , 'testb.txt' );
Rewrite( fh );
Writeln(fh , 'TB: test2' );
Close( fh ) ;
end ;
var
ab : TB ;
begin
ab:=TB.create;
ab.test1;
end. |
Почему-то вызывается TA.test2, вместо TB.test2. Почему? |