Ошибка присваивания значения объекта в скрипте

[AlekseiM]

- На простой форме разместил объект «Объект» и кнопку.
- Объект связал с таблицей, в качестве отображаемого поля выбрал числовое поле.
- По кнопке присваиваю объекту ID существующей записи:

Код: Выделить всё

procedure dxButton1Click(Sender: TObject);
begin
  Self['Объект'] := 1; //любой  ID таблицы
end;

Если отображаемое числовое поле равно 0 или пустое, возникает ошибка Field … error invalid variant value.
Вручную через список объекта запись выбирается нормально. Если поменять отображаемое поле на текстовое, тот же код работает.

[cordek]

То есть вручную вы можете выбрать 0?

[AlekseiM]

Да, можно выбрать 0. Если в одинарные кавычки значение обернуть - работает

Код: Выделить всё

 Self['Объект'] := '1';

В общем как-то странно.

[AlekseiM]

Уточнение:
Ошибка выскакивает в числовом поле = null. Кавычки ни при чем, 0 - работает.

Снимок экрана 2026-09-13 112000.png (42.4 КБ) 406 просмотров

На скрине в поле объекта - осталось предыдущее значение

Код:

Код: Выделить всё

procedure dxButton1Click(Sender: TObject);
var L:integer;
begin
  L:= Self['ID поля'];
  Self['Объект'] := L;
end;

procedure Form_Create;
begin
 dxButton1.OnClick := @dxButton1Click;
end;