Перекрывание методов... Опции

[Vardes]

Всё ещё пытаюсь разобраться с Delphi,поэтому такой вам вопрос...Что означает перекрывание методов с помощью override,зачем это нужно,если мы можем просто в потомке создать одноимённый метод с другими пар-ми,и просто его запустить...?

[volvo]

Хорошо, допустим... А теперь - контрольный выстрел:

Что будет сейчас?

uses sysutils;

type
  TA = object
    a,b,c:integer;
    constructor create;
    procedure first;
    procedure second; virtual;
  end;

  TB = object(ta)
    constructor create;
    procedure second; virtual;
  end;

constructor ta.create;
begin end;
procedure TA.second;
begin
  c := a+b;
end;


procedure TA.first;
begin
  a := 5;
  b := 8;
  second;
end;

constructor tb.create;
begin inherited create; end;
procedure TB.second;
begin
  c:=a-b;
end;

var O2: TB;
begin
  o2.create;
  O2.first;
  writeln(IntToStr(O2.c));
end.