Retrieves the name of the barcode type passed in as the CodeType parameter.
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;
More: