Подстановка кода

[Zevgma]

Уважаемое сообщество!

есть код:

with dm.exItems do begin
  Locate('id', id_Folder, []);
  Edit;
  FieldByName('fol').AsInteger := 1;
  Post;
end;

, где "dm" - Data module, а "exItems" - название таблицы.

Проблемка в том, что таких таблиц у меня 11. Смысл их разный, но базовая структура абсолютно одинаковая. Соответственно действия, выполняемые для них (как то добавление элемента, изменение и прочие) тоже совершенно одинаковые.

Вопрос - существует ли способ выбрать, допустим, строчку:

with dm.exItems do begin

в зависимости от заранее определённого параметра ActiveTab?

т.е.
если "ActiveTab = 1" то "with dm.exItems do begin"
если "ActiveTab" = 2 то "with dm.incItems do begin"
если "ActiveTab = 3" то "with dm.accounts do begin"
и т.д.

Заранее спасибо.

[pu4koff]

Можно добавить в класс модуля переменную что-то вроде: sel_table: TDataSet; // Вместо TDataSet соответствующий тип таблиц нужно подставить
В обработчике смены активной вкладки написать:

case ActiveTab of
1: dm.sel_table = dm.exItems;
2: dm.sel_table = dm.incItems;
...
end;

Если не хочется писать длинный case, то можно создать массив:

tables: array [1..11] of TDataSet;

и в OnCreate модуля написать:

tables[1] := exItems;
tables[2] := incItems;
...

ну а на смену вкладки написать код:

dm.sel_table := dm.Tables[ActiveTab];

ну а в коде уже писать:

with dm.sel_table do begin

[Zevgma]

Уважаемый, pu4koff, большое спасибо за ответ.

Вы просто спасли меня и моё творение от кучи ненужного кода и очень многих часов моего времени, которые нужно было бы потратить в случае, если что-то пришлось бы изменить.

Наверное это очень просто, но я этого не знал - теперь знаю. Спасибо. +1