VPF::Непонятно с наследованием - Форум программистов

tishaishii

Дата 28.8.2012, 07:19 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

Юнит:

Код

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. Почему?

rodnover

Дата 28.8.2012, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 7.4.2009

Репутация: 1
Всего: 10

Потому что метод надо объявить виртуальным

Код


type TA = class ( TObject )
    public
      constructor create ;
      procedure test1( );
      procedure test2( ); virtual; // Объявляем виртуальным
end;
type TB = class ( TA )
    public procedure test2( ); override; // Переопределяем
end;

Это сообщение отредактировал(а) rodnover - 28.8.2012, 07:24

tishaishii

Дата 29.8.2012, 08:36 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »