| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Наследники [D2, D6, WinXP]

webpauk ©   (2005-03-05 14:03:00) 

Можеть ли функция быть inherited;

Tcontrol = class
public
  function F: Boolean; virtual;
end;

TCControl = class(TControl)
public
  function F: Boolean; override;
end;

function TCControl.F: Boolean;
begin
 inherited; - ошибка
end;

---

begin...end   (2005-03-05 14:15:00) [1]

> webpauk   (05.03.05 14:08) [1]

> Result:=... or inherited

Result := ... or inherited F

P.S. Использование имён стандартных классов (TControl) для наименования своих классов когда-нибудь плохо кончится.

---

MU   (2005-03-05 14:14:00) [2]

function TCControl.F: Boolean;
begin
Result:=... or inherited F;
end;

---

webpauk   (2005-03-05 14:08:00) [3]

Точнее

function TCControl.F: Boolean;
begin
Result:=... or inherited; - ошибка
end;

---

Наверх