Um dos Linguagem Delphi recursos não encontrados em outras linguagens modernas é a noção de conjuntos.
Delphi'sdefinir tipo é uma coleção de valores do mesmo tipo ordinal.
Um conjunto é definido usando o conjunto de palavra-chave:
Tipos de conjuntos são geralmente definidos com subfaixas.
No exemplo acima, o TMagicNumber é um tipo de subintervalo personalizado que permite que variáveis do tipo TMagicNumber recebam valores de 1 a 34. Simplificando, um tipo de subfaixa representa um subconjunto dos valores em outro tipo ordinal.
Os valores possíveis do tipo de conjunto são todos os subconjuntos do tipo base, incluindo o conjunto vazio.
Uma limitação dos conjuntos é que eles podem conter até 255 elementos.
No exemplo acima, o tipo de conjunto TMagicSet é um conjunto de elementos TMagicNumber - números inteiros de 1 a 34.
A declaração TMagicSet = conjunto de TMagicNumber é igual à seguinte declaração: TMagicSet = conjunto de 1.. 34.
Definir variáveis de tipo
No exemplo acima, as variáveis emptyMagicSet, oneMagicSet e anotherMagicSet são conjuntos de TMagicNumber.
Para atribuir um valor para uma variável de tipo de conjunto, use colchetes e liste todos os elementos do conjunto. Como em:
Nota 1: toda variável de tipo de conjunto pode conter o conjunto vazio, indicado por [].
Nota 2: a ordem dos elementos em um conjunto não tem significado, nem é significativo que um elemento (valor) seja incluído duas vezes em um conjunto.
A palavra-chave IN
Para testar se um elemento está incluído no conjunto (variável) use o DENTRO palavra-chave:
Operadores de conjunto
Da mesma maneira que você pode somar dois números, você pode ter um conjunto que é a soma de dois conjuntos. Com sets, seu evento tem mais operadores:
- + retorna a união de dois conjuntos.
- - retorna a diferença de dois conjuntos.
- * retorna a interseção de dois conjuntos.
- = return true se dois conjuntos são iguais - tem o mesmo elemento.
- <= retorna true se o primeiro conjunto for um subconjunto do segundo conjunto.
- > = retorna true se o primeiro conjunto for um superconjunto do segundo conjunto.
- <> retorna true se dois conjuntos não são idênticos.
- IN retorna true se um elemento for incluído no conjunto.
Aqui está um exemplo:
O procedimento ShowMessage será executado? Se sim, o que será exibido?
Aqui está a implementação da função DisplayElements:
Dica: sim. Exibido: "18 | 24 |".
Inteiros, Caracteres, Booleanos
Obviamente, ao criar tipos de conjunto, você não está restrito a valores inteiros. Tipos ordinais Delphi incluem caracteres e valores booleanos.
Para impedir que os usuários digitem chaves alfa, adicione esta linha no OnKeyPress de um controle de edição:
Conjuntos com enumerações
Um cenário comumente usado no código Delphi é misturar tipos enumerados e tipos de conjunto.
Aqui está um exemplo:
Pergunta: a mensagem será exibida? Resposta: não :(
Conjuntos nas propriedades de controle Delphi
Quando você precisar aplicar "negrito" à fonte usada nos controles TEdit, use o Object Inspector ou o seguinte código:
A propriedade Estilo da fonte é uma propriedade de tipo definido! Veja como é definido:
Portanto, um tipo enumerado TFontStyle é usado como o tipo base para o tipo definido TFontStyles. A propriedade Style da classe TFont é do tipo TFontStyles - portanto, uma propriedade do tipo set.
Outro exemplo inclui o resultado da função MessageDlg. Uma função MessageDlg é usada para exibir uma caixa de mensagem e obter a resposta do usuário. Um dos parâmetros da função é o parâmetro Buttons do tipo TMsgDlgButtons.
TMsgDlgButtons é definido como um conjunto de (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp).
Se você exibir uma mensagem para o usuário contendo os botões Sim, OK e Cancelar e desejar executar algum código, se os botões Sim ou Ok foram clicados, você poderá usar o próximo código:
Palavra final: conjuntos são ótimos. Os conjuntos podem parecer confusos para um Iniciante em Delphi, mas assim que você começar a usar variáveis de tipo definido, descobrirá que elas fornecem muito mais do que soavam no começo.