如何省略 128C 条形码中的前导 0？

Question

例如，如果我将 12345 放入“文本”条形码的属性中，则输出为 012345。

这个“0”就是问题所在。我怎样才能删除这个？

我正在使用 Delphi 2010 和 FastReport 4.9.72。

Answer 1

Code 128C 条形码的位数必须为偶数。这是设计使然。

数字和结果输出之间存在 1:1 映射，并且输出是 2 位对齐的。对于 1，该数字的 Code 128C 表示为 01，

如果值为 12，则底层表示将为 12

因此数字 628 只能用 0628 表示

维基百科关于 代码128解释了128A、128B和128C编码之间的差异。

Answer 2

要从字符串中删除前导零：

function RemoveLeadingZeros(const S: String): String;
var
  I, NumZeros: Integer;
begin
  Len := 0;
  for I := 1 to Length(S) do
  begin
    if S[I] <> '0' then Break;
    Inc(NumZeros);
  end;
  if NumZeros > 0 then
    Result := Copy(S, NumZeros+1, MaxInt)
  else
    Result := S:
end;