Удаление лидирующего нуля из штрихкода 128C в Delphi 2010 с помощью FastReport 4.9.72

Delphi , Базы данных , Отчеты

Штрихкоды 128C используются для представления чисел и текста в виде линейных штрихкодов. Однако, есть проблема, когда при выводе штрихкода 128C с числовым значением, например, 12345, перед ним добавляется лидирующий ноль, в результате чего получается 012345. Это может вызвать неудобства при использовании таких штрихкодов в практике.

При использовании Delphi 2010 и FastReport 4.9.72 для генерации штрихкода 128C, можно столкнуться с этой проблемой. Как же удалить лидирующий ноль из штрихкода 128C?

Рассмотрим два возможных решения этой проблемы.

Подтвержденный ответ: Одно из решений заключается в том, чтобы изменить подмножество штрихкода 128C на подмножество A или B. Подмножества A и B не имеют требования к четному количеству цифр, в отличие от подмножества C. Таким образом, при использовании подмножества A или B, лидирующий ноль не будет добавляться к штрихкоду.

Пример кода на Object Pascal (Delphi) для изменения подмножества:

BarCode1.Subset := tfrSubset.A;

Альтернативный ответ: Второе решение заключается в том, чтобы удалить лидирующий ноль из строки перед генерацией штрихкода 128C. Для этого можно использовать функцию RemoveLeadingZeros, которая удаляет все лидирующие нули из строки.

Пример кода на Object Pascal (Delphi) для удаления лидирующих нулей:

function RemoveLeadingZeros(const S: String): String;
var
  I, NumZeros: Integer;
begin
  Result := S;
  NumZeros := 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);
end;

BarCode1.Text := RemoveLeadingZeros('012345');

В результате применения одного из этих решений, лидирующий ноль будет удален из штрихкода 128C, и он будет отображаться в виде 12345, а не 012345.

Создано по материалам из источника по ссылке.

При использовании штрихкода 128C в Delphi 2010 и FastReport 4.9.72 может добавляться лидирующий ноль к числовым значениям, что вызывает неудобства при практическом применении.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::