Object in Variable sichern?

[shmia]

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;