Neue Klasse erstellen mit 2 Klassen als Attribute

[shmia]

Zitat von Coffeecoder:

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.