Что означает override, идущий после функции?

[TwiX]

Что означает override, идущий после функции?

[Пепел Феникса]

функция заменяет функцию родительского класса(корректное замещение)
тогда родительскую функцию можно вызвать использовать через inherited
это директива всегда нужна при разработке компонентов(еще где пока не знаю)

[puporev]

Не туда написал.

[TwiX]

Спасибо.Вспомнил-ведь в AS3 тож есть override =)
А что такое inherited?

[Somebody]

Сообщение от TwiX

А что такое inherited?

А что такое help?

[Alter]

Обращение к методу предка реализуется с помощью ключевого слова "inherited".
В Delphi, деструктор должен быть обязательно перекрытым "override"; и содержать вызов деструктора предка.

[Sergey2]

Сообщение от Пепел Феникса

функция заменяет функцию родительского класса(корректное замещение)

А можно тут поподробней? Функции замещаются и без этой директивы. В чем выражается эта корректность? Есть какие-то грабли если не юзать этот оверрайд?
Если в предке функция не описана как virtual, то оверрайвить ее не получается, однако можно просто в потомке прописать такую же фукнцию и все будет работать. Насколько это коректно?

[JTG]

Грабли

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBaseClass = class
    fDynamicStuff: TStringList;
  public
    constructor Create; virtual;
    procedure Add(s:string);
    destructor Destroy; override;
  end;

  TCorrectClass = class(TBaseClass)
    fSomeNewField: integer;
  public
    constructor Create; override;
  end;

  TIncorrectClass = class(TBaseClass)
    fSomeNewField: integer;
  public
    constructor Create;
  end;

var
  Form1: TForm1;
  CorrectClass: TCorrectClass;
  IncorrectClass: TIncorrectClass;

implementation

{$R *.dfm}


{ TBaseClass }

constructor TBaseClass.Create;
begin
  fDynamicStuff := TStringList.Create
end;

procedure TBaseClass.Add(s: string);
begin
  fDynamicStuff.Add(s)
end;

destructor TBaseClass.Destroy;
begin
  fDynamicStuff.Free;
  inherited;
end;


{ TCorrectClass }

constructor TCorrectClass.Create;
begin
  inherited;   //вначале идёт вызов метода класса-родителя
  fSomeNewField := 100;
end;


{ TIncorrectClass }

constructor TIncorrectClass.Create;
begin
  fSomeNewField := 100;
end;


{button1,2}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CorrectClass := TCorrectClass.Create;
  CorrectClass.Add('test');
  CorrectClass.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IncorrectClass := TIncorrectClass.Create;
  IncorrectClass.Add('test');
  IncorrectClass.Free;
end;

end.

[Sergey2]

Сообщение от JTG

Грабли

Т.е. грабли в невозможности вызывать соответствующие функции предка?

[JTG]

Угу. Если вызывать метод родителя не нужно - его можно перекрывать, иначе директива override обязательна