Criando um efeito degradê de cores
Criando um efeito degradê de cores Esta dica mostra como criar um efeito degradê em um Canvas qualquer. Neste caso,…
Enviando arquivos para a lixeira
Enviando arquivos para a Lixeira Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina…
Como Contar Palavras em uma String no Delphi
No Delphi, podemos criar uma função para contar o número de palavras em uma string fornecida. Código da Função A…
Porcentagem de um valor
Porcentagem de um valor function Gerapercentual(valor:real;Percent:Real):real; begin percent := percent / 100; try valor := valor * Percent; finally result…
Como Adicionar Zeros à Esquerda de uma String no Delphi
Se você precisa formatar números ou strings adicionando zeros à esquerda para atingir um tamanho fixo, pode utilizar a função…
Como colocar seus programas no Painel de Controle
Como colocar seus programas no Painel de Controle em Delphi. Abaixo segue o código para seu programa no Painel de…
Como Configurar o Acesso a um Banco de Dados Paradox em Rede
Se você deseja compartilhar um banco de dados Paradox em uma rede e permitir que múltiplos usuários acessem simultaneamente, siga…
Como Verificar se uma Unidade de Disco Está Preparada no Delphi
Se você deseja verificar se uma unidade de disco (como C, D ou um pendrive) está pronta para uso no…
Função para verificar um tipo de variável
Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’;…
Utilizar o MessageBox com parâmetros
Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin StrPCopy(Mensagem1,…