Collections em GABAS3

Coleções

LINK PARA APRESENTAÇÃO


LINK PARA O VIDEO

As coleções são grupos de objetos implementados com uma tabela hash.
Onde os objetos chaves declarados na coleção são implementados como tipos de dados Strings.

Os valores correspondentes  as chaves  para qualquer coleção são do tipo de dados Variant.
 NULL é usado quando nada está associado a uma determinada chave.
 Por conseguinte, associar-se a uma chave NULL tem o mesmo efeito que  remo-lo  da coleção.
 O tamanho da tabela de hash interna cresce dinamicamente à medida em que os dados forem inseridos.

 Esta classe é criada usando o formato geral Declarando uma coleção:

as chaves são associadas a uma String.

Declaramos as chaves assim  "algo" : "valor da Chave",

Exemplo:

Dim cCollection AS cCollection = ["Seg": "Segunda-Feira" , "Ter": "Terça=Feira"]

Observe que os elementos da coleção são enumeradas na ordem em que foram inseridos.
No entanto, se você substituir o valor de uma chave já inserida, a ordem de inserção original é mantida.

Para navegarmos pela collection e acessar seu itens, utilizamos o comando :

For Each  String-name  In Collection-name next

Para cada instrução Executa um loop while Simultaneamente
enumerando um objeto.
 A expressão deve ser uma referência a um objeeto enumerável, tal como uma  coleção ou uma matriz.
 O formato geral da instrução é:


Expressão variável IN for each ... Next

Ex:

 For Each stMinhaString In cMinhaColeção
    Print cMinhaColeção.Key & " --> " & stMinhaString
  Next
O resultado seria:

Seg --> Segunda-Feira
Ter --> Terca-Feira

Note que para acessar o nome de uma  Key utilizamos o método .key.

A String deve ser declarada como uma string comum,

 Dim stMinhaString As String,

veja no laço For Each fazemos referênciaa ela para invocar os valores das  Keys.

 For Each stMinhaString In cMinhaColeção

Para trabalharmos com a coleção, obtermos seu numero de tamanho,
adicionar ou remover elementos. copiar etc, utilizamos métodos:

Addicionando elementos da Collection, método .Add()
cMinhaColeção.Add("Quar" , "Quarta-Feira")

Removendo elementos da Collection. método .Remove()
cMinhaColeção.Remove("Quar").

Obtendo o valor do tamanho da coleção. método .Count()  ou .Length()
Dim x As integer
 x  =  cMinhaColeção.Count
Print  cMinhaColeção.Length

Para testar a existencia de uma key, método .Exist(nome-da-key)
cMinhaColeção.Exist("Seg")

Para copiar uma  coleção para outra coleção: o método .Copy()