15 lines
225 B
ObjectPascal
15 lines
225 B
ObjectPascal
|
//!Нельзя реализовывать метод из другого модуля
|
|||
|
|
unit err0534;
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses err0533;
|
|||
|
|
|
|||
|
|
function f0: integer;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
static function t1.f1 := 2;
|
|||
|
|
|
|||
|
|
function f0 := t1.f1;
|
|||
|
|
|
|||
|
|
end.
|