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

[Sergey2]

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

Какой результат-то нужен? Код в студию

да нее, результат то нужный есть, я просто не понял с этими override-ами. В приведенном тексте если не оверайдить, то вызываются функции предка.... а в моем проекте все работает, т.е. вызывается функция потомка.... Разница только в том чт оу меня функции в public-е объявлены.

[JTG]

Тут Overrided и Hidden обьявлены как экземпляры базового класса TBaseClass, у а тебя, наверно, нет, потому и работает просто так

[Sergey2]

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

Тут Overrided и Hidden обьявлены как экземпляры базового класса TBaseClass, у а тебя, наверно, нет, потому и работает просто так

unit OrgElement;

interface

type
  TOrgElement = class
  public
    szFileCfg: string;
    LastUpdateCfg: TDateTime;
    function Load: boolean;         
    function Save: boolean;         
    function ItemsCount: integer;  
    function FileCfgDateTime: TDateTime;
    function FileCfgChanging: boolean;
  protected
        tFlCfg: text;
     bIsChange: boolean;
  end;

implementation

unit OrgEvt;

interface

uses OrgElement, Grids, SysUtils,Controls;

type
  TEvnt = record
    szText: string;
    case bType: byte of
      0: (bDay,
          bMonth: byte);
      1: (szDate: string[100]);
      2: (bNumber,
          bDayWeek: byte);
  end;

  TOrgElementEvnt = class(TOrgElement)
  public
    constructor Create(Windows: TStringGrid);
    function Load: boolean; 
    function Save: boolean; 
    procedure ChangeEvnt(Evnt: TEvnt);
    procedure DeleteEvnt;
    function  GetEvntFromWdw(iIndx: integer): TEvnt;
    function  GetEvntClick: TEvnt;
    procedure GetEvntDate(Date: TDate; aEvnt:array of TEvnt);
    function  ItemsCount: integer;  override;
    function  NullEvnt: boolean;
    procedure Sort;
  private
    function GetType(szStr: string): byte;
  protected
    Wdw: TStringGrid;
  end;

implementation