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.
Danke für deinen Vorschlag shmia.
Allerdings kommt mir da eine Frage auf: Vom TComTerminal brauch ich lediglich nur eine Methode onStrReceive, weil die TComPort Klasse nur die nötigen Parameter für die Kommunikation nötig sind.
Folglich muss ich in deinem Beispiel TWettersation doch noch die TComTerminal haben.
Dann habe ich:
Delphi-Quellcode:
TWetterstation = class(TObject)
private
FComport : TComport;
FComterminal :TComTerminal;
public
constructor Create(comport:TComPort; comterminal : TComTerminal);
procedure Reset;
procedure ReadWetterdaten;
property Temperatur:double;
property Feuchtigkeit:double;
property Luftdruck:double;
end;
constructor TWetterstation.Create(comport:TComPort; comterminal : TComTerminal);
begin
inherited;
FComport := comport;
FComTerminal := comterminal;
end;
procedure TWettersation.ReadWetterdaten();
begin
FComTerminal.onStrReceive();
end;
Das sollte so gehen? Ich habe im Moment kein Delphi auf dem Rechner hier drauf.