AnnSetUnit example for C++ Builder

void TForm1::TestAnnSetUnit ( HANNOBJECT hCrossProd )
{
   L_UINT uUnit;
   L_UINT uPrecision;
   AnsiString strUnitAbbrev;

   LEADAnn1->AnnGetUnit ( hCrossProd, strUnitAbbrev, uUnit, uPrecision );
   uUnit= (uUnit + 1) % 10;
   LEADAnn1->AnnSetUnit ( hCrossProd, uUnit + ANNUNIT_DEF_ABBR, "", 2, false );
}