Наследники

← →
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;

> webpauk (05.03.05 14:08) [1]

> Result:=... or inherited

Result := ... or inherited F

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

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