18 lines
183 B
ObjectPascal
18 lines
183 B
ObjectPascal
type IInt = class
|
|
procedure Test;abstract;
|
|
end;
|
|
|
|
TClass = class(IInt)
|
|
procedure Test;override;
|
|
begin
|
|
inherited Test();
|
|
end;
|
|
|
|
end;
|
|
|
|
var t : TClass;
|
|
|
|
begin
|
|
t := new TClass;
|
|
t.Test;
|
|
end. |