4 семестр

Абстрактный метод.

Type Animal = class

Function verse:string; virtual; abstract;

End;

Dog = class(Animal)

Function verse:string;override;

End;

Cat = class(Animal)

Function verse:string; override;

End;

Var myAnimal:Animal; s:string;

{реализация методов Dog.verse Cat.verse}

F:=Myanimal.verse;

End.

Абстрактные методы – методы класса, которые не определяются(не реализуются);

Директива abstract записывается после слова virtual и исключает необходимость написания кода виртуального метода для данного класса.