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:=Barcode2D1.GetBarcodeName(i);
n:=Length(typename);
if n>0 then
CodeType.Items.Add(typename);
i:=i+1;
end;
until
(n<2);
CodeType.ItemIndex:=2;
CodeTypeChange(Sender);
DoBarcode();
end;
More: