procedure DoneWorkingTable;

Назначение

Завершает работу с табелем.

Замечание

Вызовы функций InitWorkingTable, DoneWorkingTable  должны образовывать т.н. "процедурные скобки", т.е., количество вызовов процедуры DoneWorkingTable должно в точности соответствовать количеству вызовов функции InitWorkingTable.

Фактически, только при первом вызове функции InitWorkingTable, когда значение внутреннего счетчика равно нулю, действительно выполняется инициализация внутренних структур, выделение памяти, открытие таблиц и т.п. Все последующие вызовы сводятся к простому увеличению значения счетчика. DoneWorkingTable уменьшает его значение  и, если оно равно нулю, освобождает память, закрывает таблицы и т.д.

Существует альтернативный способ инициализации и завершения работы с табелем при помощи механизма прикладных контекстов.

Пример

if InitWorkingTable

{

  …

  DoneWorkingTable;

}