AnnEnumerateTextToken example for C++ Builder

void TForm1::ExampleAnnEnumerateTextToken (HANNOBJECT hObject )
{
    LEADAnn1->AnnEnableEnumerateTextTokenTableEvent = TRUE;
    LEADAnn1->AnnEnumerateTextToken();
}

void __fastcall TForm1::LEADAnn1AnnEnumerateTextTokenTable(DWORD uIndex,
      int nTextTokenCount, char cToken, AnsiString strDescription,
      AnsiString strTokenString, int nTokenType)
{
   AnsiString strType;

   strType= "Unknown";
   switch ( nTokenType )
   {
      case ANNTOKEN_NONE:
         strType= "ANNTOKEN_NONE";
         break;

      case ANNTOKEN_SEPARATOR:
         strType= "ANNTOKEN_SEPARATOR";
         break;

      case ANNTOKEN_TEXT:
         strType= "ANNTOKEN_TEXT";
         break;

      case ANNTOKEN_DATE_YYYY:
         strType= "ANNTOKEN_DATE_YYYY";
         break;

      case ANNTOKEN_DATE_YY:
         strType= "ANNTOKEN_DATE_YY";
         break;

      case ANNTOKEN_DATE_MM:
         strType= "ANNTOKEN_DATE_MM";
         break;

      case ANNTOKEN_DATE_DD:
         strType= "ANNTOKEN_DATE_DD";
         break;

      case ANNTOKEN_DATE_MONTH_NAME:
         strType= "ANNTOKEN_DATE_MONTH_NAME";
         break;

      case ANNTOKEN_DATE_DAY_OF_WEEK:
         strType= "ANNTOKEN_DATE_DAY_OF_WEEK";
         break;

      case ANNTOKEN_TIME_HH_12:
         strType= "ANNTOKEN_TIME_HH_12";
         break;

      case ANNTOKEN_TIME_HH_24:
         strType= "ANNTOKEN_TIME_HH_24";
         break;

      case ANNTOKEN_TIME_MM:
         strType= "ANNTOKEN_TIME_MM";
         break;

      case ANNTOKEN_TIME_SS:
         strType= "ANNTOKEN_TIME_SS";
         break;

      case ANNTOKEN_TIME_MILLISECONDS:
         strType= "ANNTOKEN_TIME_MILLISECONDS";
         break;

      case ANNTOKEN_AM_PM:
         strType= "ANNTOKEN_AM_PM";
         break;
   }

   ShowMessage ( "Token= " + AnsiString(cToken) + "\n" +
                 "strDescription= " + strDescription + "\n" +
                 "Token String= " + strTokenString + "\n" +
                 "Type= " + strType );

   LEADAnn1->AnnEnableEnumerateTextTokenTableEvent= True;
}