Zitat von
moelski:
Ja erstmal ist das so: TLVSpectraII = class(TObject)
Ich würde empfehlen:
1.) von TPersistent statt TObject abzuleiten (die Vorteile merkst du aber erst mit zunehmender Erfahrung)
2.) eine gemeinsame Basisklasse für alle Geräte schaffen
Delphi-Quellcode:
TLVDevice = class(TPersistent)
end;
TLVSpectraII = class(TLVDevice)
3.) überlegen, welche Eigenschaften um Methoden allen Klassen gemeinsam sind
um diese in die Basisklasse zu verlagern
z.B. könnte jedes Gerät einen Gerätenamen haben (property DeviceName)
oder jedes Gerät muss geöffnet und geschlossen werden
Delphi-Quellcode:
procedure Open; virtual;
procedure Close; virtual;