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.