AnnInsertTextTokenTable example for Delphi

Procedure TForm1.ExampleAnnInsertTextTokenTable ( hObject: HANNOBJECT );
begin
   LEADAnn1.AnnToken:= 'A';
   LEADAnn1.AnnDescription:= 'Two Digit Month';
   LEADAnn1.AnnTokenString:= '';
   LEADAnn1.AnnTokenType:= ANNTOKEN_DATE_MM;

   LEADAnn1.AnnInsertTextTokenTable();

   LEADAnn1.AnnToken:= 'B';
   LEADAnn1.AnnDescription:= 'Two Digit day';
   LEADAnn1.AnnTokenString:= '';
   LEADAnn1.AnnTokenType:= ANNTOKEN_DATE_DD;

   LEADAnn1.AnnInsertTextTokenTable();

   LEADAnn1.AnnToken:= 'C';
   LEADAnn1.AnnDescription:= 'Two Digit day';
   LEADAnn1.AnnTokenString:= '';
   LEADAnn1.AnnTokenType:= ANNTOKEN_DATE_YYYY;

   LEADAnn1.AnnInsertTextTokenTable();

   LEADAnn1.AnnDeleteTextTokenTable('B');

   LEADAnn1.AnnToken:= 'D';
   LEADAnn1.AnnDescription:= '';
   LEADAnn1.AnnTokenString:= '';
   LEADAnn1.AnnTokenType:= ANNTOKEN_SEPARATOR;

   LEADAnn1.AnnClearTextTokenTable();
end;