человек который писал SQLiter наверно думал о моноиспользовании
своего чудища, потому что каждый новый экземпляр TSQLiter
добавляется в список SQLiterList, но не удаляется от туда никогда
для исправления заменяем вот эти строчки в sqliter.bmx :
Method New()
If SQLiterList = Null Then SQLiterList = CreateList()
ListAddLast SQLiterList, Self
End Method
на вот эти
Function Create:TSQLiter()
local sqlit:TSQLiter = new TSQLiter
If SQLiterList = Null Then SQLiterList = CreateList()
ListAddLast SQLiterList, sqlit
return sqlit
End Function
Method Free()
ListRemove(SQLiterList, Self)
End Method
теперь для создания нужно вызвать функцию Create
а для удаления - метод Free
для чего предназначался SQLiterList я не знаю пока,
потому не убирал его из модуля