16 lines
228 B
ObjectPascal
16 lines
228 B
ObjectPascal
|
type
|
|||
|
|
//обязательно предописание
|
|||
|
|
t1 = class;
|
|||
|
|
|
|||
|
|
t1 = abstract class
|
|||
|
|
|
|||
|
|
public
|
|||
|
|
procedure p1; abstract;
|
|||
|
|
|
|||
|
|
function f1: byte; abstract;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function t1.f1: byte := f1;
|
|||
|
|
|
|||
|
|
begin end.
|