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