Зачем нужны виртуальные методы?

Зачем нужны виртуальные методы, если при помощи inherited можно обратиться к одноименному методу родительского класса, даже если он не виртуальный?

TA = class
  function get(): String;
end;

TB = class(TA)
  function get(): String;
end;

...

function TA.get(): String;
begin
  result := 'a';
end;

function TB.get(): String;
begin
  result := inherited;
  //result := 'b';
end;

...

showMessage(b.get());//Возвращает "a"

Only virtual and dynamic methods can be overridden. All methods, however, can be overloaded;

rgreat, чем не переопределение, если в дочернем классе я создам одноименный метод и просто не буду вызывать inherited (либо, буду, в зависимости от ситуации).

amadeus,

почитай основы языка, что ли

asutp2, *&##*!

amadeus, ну если ты не понимаешь, то вот тебе простой пример:

type
  TA = class
    procedure M; virtual;
  end;
  TB = class(TA)
    procedure M; override;
  end;
  TC = class(TA)
    procedure M; override;
  end;

procedure TA.M;
begin
  ShowMessage('TA');
end;

procedure TB.M;
begin
  ShowMessage('TB');
end;

procedure TC.M;
begin
  ShowMessage('TC');
end;

procedure Test;
var
  test: TA;
begin
  test := TA.Create;
  test.M;
  test := TB.Create;
  test.M;
  test := TC.Create;
  test.M;
end;

  TC = class(TB)
    procedure M; override;
  end;

asutp2, спасибо, теперь понятно. Полиморфизм обеспечивает "двустороннюю связь" между классами.

Здесь есть смайлик рука-лицо?

+

Дима давал ссылку на еще какую-то прикольную, но тут
анимированные гифки не работают, а мне искать лень.

Posted via ActualForum NNTP Server 1.5