vererbende Klasse oder Interface? oder beides?

[sx2008]

Zitat von Vis:

Nur sind eben die Befehle für die Messgeräte unterschiedlich, z.B. Agilent und Keithley.

Delphi-Quellcode:

procedure send (22, 'ID?', status); //Agilent
procedure send (22, 'IDN?', status); //Keithley

Für jede Unterklasse muss man also fast alle Methoden implementieren.

Muss man nicht unbedingt wenn der Unterschied nur in der Schreibweise der Befehle liegt.

In der Basisklasse führst du eine virtuelle Funktion ein die eine Kennung in einen Befehl umsetzt:

Delphi-Quellcode:

const
  QUERYSTATUS = 1;
  RESETDEVICE = 2;
  // usw.

function TMessgeraet.GetCommandString(commandid:Integer):string;  // virtual, protected
begin
  raise Exception.CreateFmt('command %d not implemented (%s)', [commandid, Classname]);
end;

function TMessgeraetAgilent.GetCommandString(commandid:Integer):string; // override;
begin
  case commandid of
    QUERYSTATUS: Result := 'ID?';
    RESETDEVICE: Result := ...;
  else
    result := inherited GetCommandString(commandid);
end;

Anstelle der Konstanten kann man auch einen Aufzählungstyp verwenden.