Gedemin TLB.IgsQueryList.Delete

From Gedemin TLB.pas

 procedure Delete(Index: Integer); safecall;

Unit: Gedemin TLB

Type: procedure

Visibility: public

Member Of: IgsQueryList

Описание

Удаляет набор данных с заданным индексом.

Индексы всех следующих за ним в списке запросов уменьшаются на 1. Например, при выполнении кода:

function rp_Main147051802_612792051

  BaseQueryList.Clear

  set q = BaseQueryList.Query(BaseQueryList.Add("q", 0))
  q.SQL = "SELECT * FROM GD_CONTACT"
  q.Open
  set q1 = BaseQueryList.Query(BaseQueryList.Add("q1", 0))
  q1.SQL = "SELECT * FROM GD_CONTACT"
  q1.Open
  call BaseQueryList.Delete(0)
  call BaseQueryList.Delete(1)
  set rp_Main147051802_612792051 = BaseQueryList
end function

получим ошибку "List index out of bounds (1)", а если заменить:

 call BaseQueryList.Delete(0)
 call BaseQueryList.Delete(1)

на:

 call BaseQueryList.Delete(0)
 call BaseQueryList.Delete(0),

скрипт выполнится без ошибок (результат — пустой BaseQueryList).