var 
MD : TdxMemData

MD.DisableControls;
    with MD do
    try
      First;

      while not Eof do
      begin
        if Boolean(FieldValues['CheckUser']) then begin
          Delete;
          Continue;
        end;

        Next;
      end;
    finally
      EnableControls;
    end;

  md.DisableContols;
  try
    if (mf.Indexes.GetIndexByField(md.FieldByName('CheckUser')) = nil) then
      with mf.Indexes.Add do
        FieldName := 'CheckUser';
    while md.Locate('CheckUser', True, []) do
      md.Delete;
  finally
    md.EnableControls;
  end;

if GridDBView.DataController.DataSource.DataSet.State in [dsEdit, dsInsert] then
    GridDBView.Controller.EditingController.Edit.PostEditValue;

while not Eof do
  if FieldValues['CheckUser']
    then Delete
    else Next;

while not Eof do
  if FieldValues['CheckUser']
    then Delete
    else Next;

while not Eof do
  if FieldValues['CheckUser']
    then Delete
    else Next;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы