Hallo,
ich habe schon einiges hier von abstrakten Klasse, Interfaces, Plugins gelesen, bin aber nicht so richtig fündig geworden.
Mein Problem ist folgendes:
Ich habe mehrere unterschiedliche Klassen die aber alle diegleichen Funktionen (im Interface) haben.
Die Klassen führen die Funktionen aber unterschiedlich aus.
Um auf die verschiedenen Klassen zuzugreifen habe ich im Moment eine Verzweigungsroutine z.B:
Delphi-Quellcode:
if DeviceObject.ModuleName ='Manual Inject' then begin
TManInjectDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;
if DeviceObject.ModuleName ='Pump4xx' then begin
TPump4xxDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;
if DeviceObject.ModuleName ='Pump300/500' then begin
TPump35xxDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;
DeviceObject ist auch eine Klasse, die dann das Object des jeweiligen Devices enthält.
Mein Problem ist jetzt, das wenn eine neue Klasse hinzukommt ich jedesmal diese Verzweigungsroutinen ändern muß.
Ziel ist es, eine Liste zu haben ( die man erweitern kann) in der die Namen der
Bpl's stehen und diese
bpl (für jedes Device eine eigene
Bpl) dynamisch geladen wird. In diesem Falle ist diese Verzweigung nicht mehr nötig, sodaß das Hauptprogramm nicht jedesmal neu kompiliert werden muß.
Es müßte also anhand des Modulnamens auf die richtige Klasse zugegriffen werden.
Die Klasse muß auch mehrfach instanziiert werden können.
Wie kann ich das am besten und einfachsten bewerkstelligen ?
Gruß
Gargano