delphi - 128C バーコードから先頭の 0 を省略するにはどうすればよいですか?

Question

たとえば、「テキスト」バーコードのプロパティに 12345 を入力すると、出力は 012345 になります。

この「0」が問題です。どうすればこれを削除できますか?

Delphi 2010 と FastReport 4.9.72 を使用しています。

Answer 1

Code 128C バーコードは偶数桁である必要があります。これは仕様によるものです。

数値と結果の出力の間には 1:1 のマッピングがあり、出力は 2 桁で整列されます。Code 128Cの場合、1この番号の表記は01

値が次の場合12、基になる表現は次のようになります12

したがって、数字は次の式628でのみ表すことができます0628

Code 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;