21 lines
216 B
ObjectPascal
21 lines
216 B
ObjectPascal
type TBase = class
|
|
constructor Create(i : integer);
|
|
begin
|
|
|
|
end;
|
|
constructor Create(r : real);
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
|
|
type TDer = class(TBase)
|
|
constructor Create(s : string);
|
|
begin
|
|
inherited;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
|
|
end. |