ISISGetTagChoiceCount example for Delphi

var
   lCount: Longint;
   lVal: Longint;
   x: Longint;
begin

   LEADISIS1.ISISLoadDriver ( ) ;

   //try a long tag
   LEADISIS1.ISISGetTagChoiceCount ( TAG_IMAGEWIDTH, @lCount ) ;
   ShowMessage ( 'Scanner has ' + IntToStr(lCount) + ' choices' ) ;
   for x:= 0 To lCount - 1 do
   begin
     LEADISIS1.ISISGetTagChoice (TAG_IMAGEWIDTH, x, @lVal);
     ListBox1.Items.Add ('Choice: ' + IntToStr (x) + '  Value: ' + IntToStr (lVal)) ;
   end;

   //try a short tag
   LEADISIS1.ISISGetTagChoiceCount (TAG_BRIGHTNESS, @lCount);
   ShowMessage ('Scanner has ' + IntToStr (lCount) + ' choices');
   for x:= 0 To lCount - 1 do
   begin
     LEADISIS1.ISISGetTagChoice (TAG_BRIGHTNESS, x, @lVal);
     ListBox2.Items.Add ('Choice: ' + IntToStr (x) + '  Value: ' + IntToStr (lVal)) ;
   end;
   LEADISIS1.ISISUnloadDriver ();
end;