uses
dxBarCodeUtils;
//................
begin
dxBarCode1.Properties.BarCodeSymbologyClassName := 'TdxBarCode128Symbology';
TdxBarCode128Symbology(dxBarCode1.Properties.Symbology).CharacterSet := csAuto;
dxBarCode1.Text := '12345';
|