Не могу разобраться с полиморфизмом классов. В книге по которой я учусь, описывается следующий пример.
Код:
TMyClass1 = class
procedure Show;
procedure Hide;
procedure MyProc(IsShow : Boolean); virtual;
end;
TMyClass2 = class(TMyClass1)
procedure MyProc(IsShow : Boolean); override;
end;
procedure TMyClass1.Show;
begin
MyProc(True);
end;
procedure TMyClass1.Hide;
begin
MyProc(False);
end;
Ошибка
[Error] Project1.dpr(17): Unsatisfied forward or external declaration: 'TMyClass2.MyProc'