Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Вниз

Наследники   Найти похожие ветки 

← →
webpauk   (2005-03-05 14:03) [0]

Можеть ли функция быть 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;

---

← →
webpauk   (2005-03-05 14:08) [1]

Точнее

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

---

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

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

---

← →
begin...end ©   (2005-03-05 14:15) [3]

> webpauk   (05.03.05 14:08) [1]

> Result:=... or inherited

Result := ... or inherited F

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c