dOPC Client Toolkit Help file
Example
procedure ShowEUInfo(Item: TdOPCItem);
var
  str: string;
  Low, High: Double;
begin
  case Item.EUType of
    OPC_NOENUM : str := 'Engineering Units (EU) information not available';
    OPC_ANALOG :
    begin
       Low  := Item.EuInfo[0];
       High := Item.EuInfo[1];
       str := format('Analog scale from: %.2f to %.2f',[Low,High]);
    end;
    OPC_ENUMERATED : str := 'ENUMERATED: ' +VarToAStr(Item.EuInfo);
  end;
  ShowMessage(Str);
end;
Copyright © 2001-2014 Kassl GmbH (http://www.kassl.de). All rights reserved.