{$APPTYPE CONSOLE}
uses
SysUtils;
type
TAbstract = class
public
function CallMe:integer; virtual; abstract;
end;
TRealization = class(TAbstract)
public
function CallMe:Integer; override;
end;
function TRealization.CallMe: Integer;
begin
Result:=1;
end;
var
R:TRealization;
begin
R:=TRealization.Create;
writeln('Realization: ',R.CallMe);
R.Free;
readln;
end.
классы Delphi а также Virtual Abstract
Есть задача в модуле отдельном написать функцию.
Суть её называть не буду = её сделал и в ней ошибок нет.
Но сложность состоит в постановки задачи.
надо в отдельном модуле объявить функцию в классе, но без тела = (как понял) припомощи функций virtual и abstract
Потом из главной формы из подчинённого класса = поймать эту функцию припомощи override
и тело потом прописать.
суть в том, я чёто делаю коряво..
Он ругаеться на память
допустим главный класс Tll1 а подчиненный Tll2 и какаянибудь функция.
Я непонимаю как её можно присобачить, правильно = чтоб без ошибок
Суть её называть не буду = её сделал и в ней ошибок нет.
Но сложность состоит в постановки задачи.
надо в отдельном модуле объявить функцию в классе, но без тела = (как понял) припомощи функций virtual и abstract
Потом из главной формы из подчинённого класса = поймать эту функцию припомощи override
и тело потом прописать.
суть в том, я чёто делаю коряво..
Он ругаеться на память
допустим главный класс Tll1 а подчиненный Tll2 и какаянибудь функция.
Я непонимаю как её можно присобачить, правильно = чтоб без ошибок