Hallo,
da hilft doch wieder die gute alte Vererbung:
Du erstellst ein Interface mit den allgemeinen Methoden und leitest davon wiederum die speziellen ab. Das gleiche machst Du mit den Klassen:
Delphi-Quellcode:
type
ICamera = interface(IInterface)
procedure Initialize;
function getBild:SpectrumArray;
procedure setExposureTime(msTime : integer);
function getExposureTime: integer;
end;
ICamera1 = interface(ICamera)
procedure setTriggerTimeOut(mode : integer);
function getTriggerTimeOut:integer;
end;
TKamera = class(TInterfacedObject, ICamera)
procedure Initialize;
function getBild:SpectrumArray;
procedure setExposureTime(msTime : integer);
function getExposureTime: integer;
end;
TKamera1 = class(TKamera, ICamera1)
procedure setTriggerTimeOut(mode : integer);
function getTriggerTimeOut:integer;
end;
Das war's schon.
Jetzt kannst Du bei jeder Klasse auf die allgemeinen Methoden zugreifen und zusätzlich jeweils auf die speziellen.
Gruß
xaromz