Delphi Example

Adding supported barcode types to a combobox named CodeType.

procedure TForm1.FormCreate(Sender: TObject);
var

i: integer;

n: integer;

typename: string;

begin

i:=0;

repeat

begin

typename:=Barcode1.GetTypeName(i);

n:=Length(typename);

if n>0 then CodeType.Items.Add(typename);

i:=i+1;

end;

until (n<2);

CodeType.ItemIndex:=8;

end;