13 lines
242 B
Text
13 lines
242 B
Text
|
type
|
||
|
|
ICamera = Interface
|
||
|
|
// ICamera methods...
|
||
|
|
end;
|
||
|
|
|
||
|
|
IMobilePhone = Interface
|
||
|
|
// IMobilePhone methods...
|
||
|
|
end;
|
||
|
|
|
||
|
|
TCameraPhone = class(TInterfacedObject, ICamera, IMobilePhone)
|
||
|
|
// ICamera and IMobilePhone methods...
|
||
|
|
end;
|