Delphi ::: Data Controls (Controles de Dados) ::: TDBGrid

Como criar colunas persistentes o controle TDBGrid do Delphi

Quantidade de visualizações: 11806 vezes
Quando conectamos um TDBGrid a uma fonte de dados TDataSource, automaticamente ocorre a criação de colunas no grid, cada uma correspondendo a um dos campos da tabela para a qual o TDataSet (e suas classes derivadas) está apontando. Estas colunas criadas automaticamente são chamadas de DINÂMICAS, ou contrário das colunas PERSISTENTES.

Porém, na maioria das vezes, nós queremos personalizar a aparência das colunas em tempo de design (o que também pode ser feito em tempo de execução). Queremos alinhar ou alterar os títulos, mudar a fonte e cores, etc. Fazemos isso clicando com o botão direito no controle DBGrid e acessando a opção Columns Editor (ou dando duplo clique na propriedade Columns). Isso fará com que a propriedade State do objeto TDBGridColumns do DBGrid seja mudada para csCustomized, o que indica que o Delphi montará as colunas baseado em nossas configurações e não mais automaticamente de acordo com os nomes dos campos da tabela.

Siga os seguintes passos para criar colunas persistentes para o controle DBGrid:

a) Selecione o DBGrid no formulário;

b) Acesse o editor Columns dando duplo-clique na propriedade Columns no Object Inspector;

Isso bastará para que o list box de Columns exiba as colunas persistentes já existentes. Quando o editor Columns é mostrado pela primeira vez, esta lista estará vazia porque o grid está em seu estado padrão, contendo apenas colunas dinâmicas.

Podemos criar colunas persistentes para todos os campos do dataset de uma só vez, ou podemos criar as colunas persistentes para cada campo individualmente.

Siga os passos abaixo para criar colunas persistentes para todos os campos:

a) Chame o editor Columns e escolha a opção Add All Fields. Note que se o grid não estiver associado a nenhum data source, a opção Add All Fields estará desabilitada. Associe o grid com o data source que estiver conectado a um dataset ativo antes de escolher a apção Add All Fields.

b) Se o grid já possuir colunas persistentes, uma caixa de diálogo perguntará se você quer excluir as colunas existentes ou apenas acrescentar as novas colunas. Se você escolher Yes, todas as colunas persistentes serão removidas e todos os campos do dataset atual serão inseridos como colunas, obedecendo sua ordem no dataset. Neste caso os títulos das colunas serão os nomes dos campos na tabela. Se você escolher No, as colunas persistentes serão mantidas e as novas colunas serão adicionadas.

C) Clique o botão Close para aplicar as colunas persistentes no DBGrid e fechar a caixa de diálogo.

Siga os passos abaixo para criar colunas persistentes individualmente:

a) Escolha o botão Add no editor Columns. A nova columa será selecionada na list box. Esta nova coluna receberá um número sequencial e um nome padrão (por exemplo, 0 - TColumn). Para associar um campo da tabela com esta nova coluna, ajuste sua propriedade FieldName no Object Inspector.

b) Para definir o título para a nova coluna, expanda a propriedade Title no Object Inspector e ajuste sua propriedade Caption.

c) Feche o editor Columns para aplicar as colunas persistentes no grid e fechar a caixa de diálogo.

Se o um DBGrid possui apenas colunas dinâmicas, nós podemos excluí-las em tempo de execução simplesmente mudando o valor da propriedade Columns.State para csCustomized. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos alterar o valor da propriedade State para csCustomized
  DBGrid1.Columns.State := csCustomized;
end;

Este trecho de código faz com que as colunas dinâmicas sejam excluídas e colunas persistentes sejam criadas para cada um dos campos do dataset ao qual o grid está ligado. Após isso, novas colunas podem ser adicionadas em tempo de execução usando código parecido com:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos alterar o valor da propriedade State para csCustomized
  DBGrid1.Columns.State := csCustomized;

  // vamos adicionar uma nova coluna
  DBGrid1.Columns.Add;
end;

Esta dica foi escrita e testada no Delphi 2009.


Portugol ::: Dicas & Truques ::: Cadeias e Caracteres

Como remover todos os espaços de um nome, frase ou texto usando a função substituir() da biblioteca Texto do Portugol

Quantidade de visualizações: 333 vezes
Como remover espaços de um nome, frase ou texto usando a função substituir() da biblioteca Texto do Portugol

Nesta dica mostrarei como podemos usar a função substituir() da biblioteca Texto do Portugol para remover todas as ocorrências de espaços em um nome, frase ou texto. Esta técnica é muito interessante quando queremos processar e salvar dados informados pelos usuários em um arquivo texto.

Veja o código Portugol completo para o exemplo:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

programa {
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  
  funcao inicio() {
    // vamos declarar uma variável para guardar um nome
    cadeia nome, novo_nome

    // vamos pedir para o usuário informar o seu nome
    escreva("Informe o seu nome: ")
    leia(nome)
    
    // agora vamos remover todos os espaços do nome informado
    novo_nome = texto.substituir(nome, " ", "")

    // e mostramos os resultados
    escreva("Você informou o nome: " + nome)
    escreva("\nSem os espaços: " + novo_nome) 
  }
}

Ao executar este código Portugol nós teremos o seguinte resultado:

Informe o seu nome: Marcela de Oliveira Macedo Cunha
Você informou o nome: Marcela de Oliveira Macedo Cunha
Sem os espaços: MarceladeOliveiraMacedoCunha


Ruby ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes)

Como ordenar um array em Ruby usando as funções sort e sort!

Quantidade de visualizações: 12390 vezes
Em várias situações nós precisamos ordenar arrays na linguagem Ruby. Para isso nós podemos usar a função sort, que ordenará os elementos do array em ordem crescente.

Veja o código Ruby a seguir:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

=begin
  Este trecho de código mostra como ordenar
  um array de inteiros usando o método sort
  da classe Array.  
=end

# define um array de inteiros
valores = [10, 3, 56, 100, 34, 0, 4]

# exibe os valores na ordem original
puts "Ordem original:"
for valor in valores
  print valor.to_s + " "
end

# array ordenado
puts "\n\nOrdenado do menor para o maior:"
valores = valores.sort # ordena o array
for valor in valores
  print valor.to_s + " "
end

Ao executar este código Ruby nós teremos o seguinte resultado:

Ordem original:
10 3 56 100 34 0 4

Ordenado do menor para o maior:
0 3 4 10 34 56 100

Se quisermos que a ordenação seja feita no array original, sem criar uma cópia, podemos usar a função sort!. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

=begin
  Este trecho de código mostra como ordenar
  um array de inteiros usando o método sort
  da classe Array.  
=end

# define um array de inteiros
valores = [10, 3, 56, 100, 34, 0, 4]

# exibe os valores na ordem original
puts "Ordem original:"
for valor in valores
  print valor.to_s + " "
end

# array ordenado
puts "\n\nOrdenado do menor para o maior:"
valores.sort! # ordena o array
for valor in valores
  print valor.to_s + " "
end



C# ::: Dicas & Truques ::: Strings e Caracteres

Como contar as ocorrências de um caractere em uma string C# usando o método IndexOf() da classe String

Quantidade de visualizações: 17050 vezes
Nesta dica mostrarei como podemos tirar proveito da função IndexOf() da classe String do C# para contar todas as ocorrências de uma letra em uma palavra, texto ou frase. Note que, além de retornar a quantidade de ocorrências do caractere, nós vamos mostrar também o índice de cada ocorrência.

Veja o código C# completo:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      string frase = "Gosto muito de C#. E você?";
      char letra = 'o'; // vamos pesquisar a letra "o"
      int quant = 0;
      int pos = -1, pos_ant = -1, cont = 0;

      while (cont < frase.Length) {
        pos = frase.IndexOf(letra, cont);

        if ((pos != pos_ant) && (pos != -1)) {
          Console.WriteLine("\"" + letra + "\" encontrada no índice " +
            pos);
          quant++;
        }

        cont++; // aumenta o contador
        pos_ant = pos;
      }

      Console.WriteLine("Encontrei " + quant + " ocorrências da " +
         "letra " + letra);

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

Ao executar este código C# nós teremos o seguinte resultado:

"o" encontrada no índice 1
"o" encontrada no índice 4
"o" encontrada no índice 10
"o" encontrada no índice 22
Encontrei 4 ocorrências da letra o


Nossas 20 dicas & truques de programação mais populares

Você também poderá gostar das dicas e truques de programação abaixo

Nossas 20 dicas & truques de programação mais recentes

Últimos Projetos e Códigos Fonte Liberados Para Apoiadores do Site

Últimos Exercícios Resolvidos

E-Books em PDF

E-Book 350 Exercícios Resolvidos de Java - PDF com 500 páginas
Domine lógica de programação e a linguagem Java com o nosso E-Book 350 Exercícios Exercícios de Java, para você estudar onde e quando quiser.

Este e-book contém exercícios resolvidos abrangendo os tópicos: Java básico, matemática e estatística, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.
Ver Conteúdo do E-book
E-Book 650 Dicas, Truques e Exercícios Resolvidos de Python - PDF com 1.200 páginas
Domine lógica de programação e a linguagem Python com o nosso E-Book 650 Dicas, Truques e Exercícios Exercícios de Python, para você estudar onde e quando quiser.

Este e-book contém dicas, truques e exercícios resolvidos abrangendo os tópicos: Python básico, matemática e estatística, banco de dados, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.
Ver Conteúdo do E-book

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: C
6º lugar: Delphi
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby


E-Book 350 Exercícios Resolvidos de Java - PDF com 500 páginas
Domine lógica de programação e a linguagem Java com o nosso E-Book 350 Exercícios Exercícios de Java, para você estudar onde e quando quiser. Este e-book contém exercícios resolvidos abrangendo os tópicos: Java básico, matemática e estatística, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.
Ver Conteúdo do E-book Apenas R$ 19,90


© 2025 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 89 usuários muito felizes estudando em nosso site.