Проблема конкатенации строки с вариантом, содержащим TBcd, в Delphi 12.3

Delphi , Синтаксис , Синтаксис

В этой статье мы рассмотрим неожиданное поведение при работе с вариантами (Variant) в Delphi, содержащими двоично-десятичные числа (TBcd), и их конкатенации со строками.

Описание проблемы

Как обнаружил пользователь MarkShark на форуме, следующий код вызывает исключение в Delphi 12.3 (а также в более ранних версиях, таких как XE5 и 11.2):

procedure TForm1.Button1Click(Sender: TObject);
var
  V: Variant;
  S: String;
  Bcd: TBcd;
begin
  Bcd := IntegerToBcd(23);
  VarFMTBcdCreate(V, Bcd);
  // Это работает
  S := V;
  // Это вызывает исключение
  S := 'Testing: ' + V;
end;

При выполнении этого кода возникает исключение EBcdException с сообщением "'Testing: ' is not a valid BCD value".

Причины поведения

Как объяснили участники обсуждения (PeterBelow, Remy Lebeau и другие), проблема связана с тем, как Delphi обрабатывает операции с вариантами:

1. Когда вы выполняете операцию между строкой и вариантом, Delphi сначала преобразует строку в вариант.
2. Затем система пытается выполнить операцию между двумя вариантами.
3. В случае с TBcd, система пытается преобразовать строку 'Testing: ' в TBcd, что невозможно, отсюда и исключение.

Как отмечает Remy Lebeau: "Операция дает пользовательскому типу (TBcd) возможность решить, следует ли приводить левую часть к пользовательскому типу, что и происходит в этой ситуации, после чего происходит сбой во время этого преобразования из строки в TBcd."

Решения проблемы

1. Явное преобразование варианта в строку

Самый простой и надежный способ избежать проблемы - явно преобразовать вариант в строку перед конкатенацией:

S := 'Testing: ' + string(V);

Этот подход рекомендуется многими разработчиками, включая pmcgee, который ссылается на мнение части сообщества, считающего неявные преобразования потенциально опасными.

2. Использование Format

Другой вариант - использовать функцию Format:

S := Format('Testing: %s', [V]);

3. Промежуточное преобразование

Можно сначала преобразовать вариант в строку, а затем выполнять конкатенацию:

var
  TempStr: string;
begin
  TempStr := V;
  S := 'Testing: ' + TempStr;
end;

Почему работает простое присваивание?

Интересно, что простое присваивание S := V работает корректно. Это происходит потому, что в этом случае Delphi использует прямое преобразование варианта в строку, не пытаясь выполнить никаких арифметических операций.

Альтернативное объяснение от Brian Evans

Brian Evans приводит дополнительное объяснение, основанное на документации Windows OLE и Delphi: - В выражениях с вариантами невариантные значения автоматически преобразуются в варианты - Операции между вариантами следуют правилам Windows OLE (varAdd) - Для вариантов операция + между строкой и числом всегда интерпретируется как арифметическое сложение, а не конкатенация

Выводы

1. Поведение не является ошибкой, а следует из логики работы вариантов в Delphi.
2. Всегда лучше использовать явные преобразования при работе с вариантами, особенно при смешивании разных типов.
3. Для сложных операций с TBcd лучше работать непосредственно с типом TBcd, а не с вариантами.

Пример безопасного кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  V: Variant;
  S: String;
  Bcd: TBcd;
begin
  Bcd := IntegerToBcd(23);
  VarFMTBcdCreate(V, Bcd);

  // Безопасные способы:
  S := 'Testing: ' + string(V); // Явное преобразование

  // Или:
  S := Format('Value: %s', [VarToStr(V)]);

  // Или:
  S := 'Value: ' + BcdToStr(Bcd); // Работа напрямую с TBcd
end;

Помните: когда речь идет о типах и преобразованиях, компилятор всегда прав. Лучше явно указывать свои намерения в коде, чем полагаться на неявные преобразования.

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

Контекст описывает проблему с конкатенацией строки и варианта, содержащего TBcd в Delphi, где неявное преобразование вызывает исключение, и предлагает решения через явное преобразование типов.

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

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

:: Главная :: Синтаксис ::