TQrSegment

type TQrSegment = class(TInterfacedObject,IQrSegment)

public

  FMode: TQrSegmentMode;

  FNumChars: Int32;

  FBitLength: Int32;

  FData: TQRCodeGenLibInt32Array;

  constructor Create();

  property Mode: TQrSegmentMode; [r]

  property NumChars: Int32; [r]

  property BitLength: Int32; [r]

  property Data: TQRCodeGenLibInt32Array; [r]

  class function IsNumeric();

  class function IsAlphaNumeric();

  class function GetTotalBits();

  class function MakeBytes();

  class function MakeNumeric();

  class function MakeAlphaNumeric();

  class function MakeEci();

  class function MakeSegments();

end;

TQrSegment

TObject,IQrSegment