DELETE FROM MSG BASE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «DELETE_FROM_MSG_BASE - это программа из справочника R266 Удалить все из базы сообщений MSG_ = Смот…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[DELETE_FROM_MSG_BASE]] - это программа из справочника [[R266]] | [[DELETE_FROM_MSG_BASE]] - это программа из справочника [[R266]] | ||
Удалить все из базы сообщений MSG_ | Удалить все из базы сообщений MSG_ | ||
| + | = Текст = | ||
| + | local msg | ||
| + | try | ||
| + | msg := OPENFDATA( 'MSG_', 'msg', false, OPDATAPATH, ~IsCheckStr := false ) | ||
| + | while !( msg )->( EOF() ) | ||
| + | ( msg )->( TRYTODELETE() ) | ||
| + | end | ||
| + | finally | ||
| + | CLOSETABLE( msg ) | ||
| + | end | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 08:15, 24 января 2019
DELETE_FROM_MSG_BASE - это программа из справочника R266
Удалить все из базы сообщений MSG_
Текст
local msg
try
msg := OPENFDATA( 'MSG_', 'msg', false, OPDATAPATH, ~IsCheckStr := false )
while !( msg )->( EOF() )
( msg )->( TRYTODELETE() )
end
finally
CLOSETABLE( msg )
end
