Положить в очередь табличное событие?

[Robis]

Реально?

Немного поясню ))

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

tableEvent table blabla;
  cmUpdateRecord:
    {
    ... логика
    }
end;

function FAIL() : void;
{
  blabla.field1 := 1;
  blabla.field2 := 4;
  <<- и вот тут, чтобы не переписывать всю логику cmUpdateRecord для таблы blabla хотелось бы его поюзать. 
}

Понадобилось при докомпиляции...

[Алексей]

putCommand(cmUpdateTable); не покатит?

[Алексей]

а ещё проще логику вынести в функцию, и когда надо - вызывать функцию.
и её же в cmupdaterecord

[Robis]

putCommand(cmUpdateTable); не покатит?

Не покатит.

а ещё проще логику вынести в функцию, и когда надо - вызывать функцию.
и её же в cmupdaterecord

Дублирование кода + если потом разработчик изменит что-то в cmUpdateRecord мне надо будет в своём коде это править. Как раз именно от этого я и хочу уйти.

[n0where]

ДОкомпиляцией. Там же можно вызвать свою логику до, после, или вместо cmUpdateTable.

[oiko]

Функция UpDateTable
Назначение
Если таблица была модифицирована, то вызовет соответственно cmUpDateRecord или cmInsertRecord.

[LaaLaa]

UpDateTable приведет к каскадному выполнению всех cmUpdateRecord и cmInsertRecord. Если в GUI-контролы интерфейса обнаружат что были изменения в значениях полей.

Искусственно установить флаг модификации полей можно с помощью оператора SET

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

function FAIL() : void;
{
  blabla.field1 := 1;
  blabla.field2 := 4;
  ...
  SET blabla.field100 := 4;

  UpDateTable; 
}

SET надо писать на последнем операторе из цепочки присвоений, т.к. каждый раз при вызове SET происходит перерисовка экрана.

Еще есть процедура SetModified. Установка флага модификации текущей записи текущей области ввода. С ее помощью можно достичь того же эффекта:

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

function FAIL() : void;
{
  blabla.field1 := 1;
  blabla.field2 := 4;
  ...
  blabla.field100 := 4;
 
  SetModified(true);

  UpDateTable; 
}

[Robis]

Laa, спасибо. Плюсанул.

[Robis]

Рановато плюсанул ))

Не работает, не вызываются события.

[LaaLaa]

еще важно какая таблица является текущей? curtable