Klasse von TTHread ableiten und Interface implementieren, Objekt erstellen

[sx2008]

Ich glaube, du mutest deiner Thread-Klasse zuviel zu.
Anstatt das Interface IDeviceController zu implementieren würde es doch ausreichen,
wenn die Threadklasse von Aussen eine Instanz von IDeviceController zugewiesen bekommt.

Hier mal stark vereinfacht die Unterschiede:

Delphi-Quellcode:

// dein Vorschlag
TDeviceController = class(TThread, IDeviceController)

private
  // hier müssen alle Methoden von IDeviceController implementiert werden
  ...
public
  procedure Execute;override;

end;
// ======================================================================
// mein Vorschlag
TDeviceThread = class(TThread)

public
  // "DeviceController" muss von Aussen übergeben werden und danach
  // der Thread mit Resume() gestartet werden
  DeviceController : IDeviceController;
  procedure Execute;override;  // benützt "DeviceController"
end;

Mein Vorschlag hat den Vorteil, dass er einfacher umzusetzen ist und ausserdem wird das Interface IDeviceController von einer eigenen Klasse implementiert.
Diese bedeutet, dass dein Code zunächst auch ohne Multithreading testbar ist.
Erst später kommt eine (oder mehrere!) Threadklasse hinzu, der schon bestehenden Code im Kontext eines Threads ausführt.