Старатель (Все сообщения пользователя)

del *.log
del *.ik
del *.dat
del *.wnd*
del *.ini

function main()
  t_id = AllocTable()
  message(tostring(t_id))
  AddColumn(t_id, 1, 'Колонка1', true, QTABLE_STRING_TYPE, 20)
  AddColumn(t_id, 2, 'Колонка2', true, QTABLE_STRING_TYPE, 20)
  CreateWindow(t_id)
  while t_id do
    if IsWindowClosed(t_id) then CreateWindow(t_id) end
    sleep(100)
  end
end

SetTableNotificationCallback(t_id, function(t_id, msg, par1, par2)
  if msg == QTABLE_CLOSE then
     DestroyTable(t_id)
  end
end

run, t_id = true

function main()
  t_id = AllocTable()
  CreateWindow(t_id)
  while run do
    sleep(1)  -- можно sleep убрать, чтоб наверняка
  end
end
function OnStop()
  run = nil
  DestroyTable(t_id)
end
function OnDisconnected()
  OnStop()
end

function test(flags, index)
  local n = 2^index
  return flags % (2 * n) >= n
end

Число   Номер бита   Выражение   Результат
110111   3   (55 % 8 >= 32)   1

function bit_test(flags, index)
  return flags % (2^(index+1)) >= 2^index
end

function OnConnected()
  Sort = true
end
function W()
  return nil
end
function main()
  ...
  while run do
    if Sort then
      table.sort({0, 1})  -- сортировка никак не связана с функцией W, но без сортировки проблема не воспроизводится
      Sort = nil
    elseif not W() then   -- тут возникает ошибка
    else sleep(100) end
  end
end

function main()
  while run do
    if Sort then
      table.sort({0, 1})
      Sort = nil
    else
      if not _G then message('Ahtung! Not _G', 3)
      elseif not W() then
      else sleep(100) end
    end
  end
end

function main()
  table.ssort({1, 0}, function(a, b) return a[1] < b[1] end)
end

message(tostring(0xFFFFFFFF == -1))  -->  false

CreateDataSource(Class, nil, 0)