Danke Dejan Vu,
damit komme ich zu einem Folgeproblem:
Ich habe nicht nur ein Interface sondern mehrere für verschiedene Devices.
In einer Initialisierungsroutine werden alle Instanzen erzeugt.
Dazu habe ich eine Objectlist, in der ich dann die Instanzen eintrage.
Nach dem Umbau zu Interfaces fehlt aber jetzt die Möglichkeit auf diese zuzugreifen.
Jetzt könnte ich für jedes Interface einen Eintrag in die Object Struktur machen:
Delphi-Quellcode:
TDeviceObject = class (TObject)
DeviceModule : TDataModule;
DeviceInterface300 : IClassCLCPump300;
DeviceInterface330 : IClassCLCPump330;
DeviceInterface400 : IClassCLCPump400;
ModuleName : String;
DeviceName : String;
Wie kann man dies universell machen ?
TDeviceObject = class (TObject)
DeviceModule : TDataModule;
DeviceInterface : ???;
Pointer funktioniert nicht.