Mein erster Ansatz war beide Klasse TComPort und TComTerminal als Attribut in meiner neuen Klassen zu deklarieren und dann im Konstruktor zu erstellen. Würdet Ihr das auch so machen?
Nö.
Mal angenommen bei dem Zielgerät handelt es sich um eine Wetterstation, die über eine serielle Schnittstelle angesprochen wird.
Dann gibt es 2 Klassen:
* TWetterstation
* TComPort
Die Klasse TWetterstation benötigt keine Baudrate, Stopbits, usw sondern
sie benötigt lediglich
ein fertig konfiguriertes TComPort-Objekt.
Die ganzen Details der seriellen Parameter interessieren die Klasse TWetterstation nicht.
Dieses TComPort-Objekt wird über den Konstruktor übergeben:
Delphi-Quellcode:
TWetterstation = class(TObject)
private
FComport : TComport;
public
constructor Create(comport:TComPort);
procedure Reset;
procedure ReadWetterdaten;
property Temperatur:double;
property Feuchtigkeit:double;
property Luftdruck:double;
end;
constructor TWetterstation.Create(comport:TComPort);
begin
inherited;
FComport := comport;
end;
Sollte die Übergabe im Konstruktor nicht möglich sein, kann man das Comport-Objekt
auch über ein Property übergeben.