Delphi

Porcentagem de um valor function Gerapercentual(valor:real;Percent:Real):real; begin percent := percent / 100; try valor := valor * Percent; finally result := valor; end; end;

No Delphi, podemos criar uma função para remover pontos (.) e vírgulas (,) de uma string numérica. Isso é útil ao converter valores formatados para cálculos matemáticos. Código da Função A função abaixo percorre a string e remove qualquer ponto ou vírgula, retornando apenas os números restantes: Como Usar? Para utilizar a função e remover…

Criando um efeito degradê de cores Esta dica mostra como criar um efeito degradê em um Canvas qualquer. Neste caso, estamos utilizando um componente TPaintBox e o evento OnPaint. Dependendo da utilização deste recurso, esta rotina pode ser adaptada para funcionar em um outro componente. procedure TForm1.PaintBox1Paint(Sender: TObject); const clStart: TColor = clRed; clEnd: TColor…

Se você deseja compartilhar um banco de dados Paradox em uma rede e permitir que múltiplos usuários acessem simultaneamente, siga este guia passo a passo para configurar corretamente o BDE (Borland Database Engine). Passo 1: Acessar o BDE Administrator Passo 2: Configurar o Diretório de Rede (NetDir) Passo 3: Habilitar o Compartilhamento de Arquivos Essa…

Se você deseja verificar se uma unidade de disco (como C, D ou um pendrive) está pronta para uso no Delphi, siga este guia passo a passo para criar um programa simples que faz essa verificação. Passo 1: Criar um Novo Projeto Passo 2: Adicionar as Bibliotecas Necessárias No início da Unit1, adicione o seguinte…

Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’; varNull: result := ‘Null’; varSmallInt: result := ‘SmallInt’; varInteger: result := ‘Integer’; varSingle: result := ‘Single’; varDouble: result := ‘Double’; varCurrency: result := ‘Currency’; varDate: result := ‘Date’; varOleStr: result := ‘OleStr’; varDispatch: result :=…

Se você precisa formatar números ou strings adicionando zeros à esquerda para atingir um tamanho fixo, pode utilizar a função StrZero. Função para Adicionar Zeros Abaixo está a implementação da função otimizada: Como Funciona? Exemplo de Uso Benefícios da Função

Neste artigo você vai aprender a transformar uma aplicação Delphi em um applet do Painel de Controle do Windows (arquivo .cpl) — aqueles ícones que aparecem dentro do Painel de Controle e, ao serem clicados, abrem uma janela de configuração. Ideia geral Um .cpl nada mais é do que uma DLL com uma função exportada…

Se você precisa verificar se uma pasta está presente no sistema antes de executar alguma ação, o Delphi oferece uma maneira simples de fazer isso usando a função DirectoryExists. Como Funciona? A função DirectoryExists retorna True se o diretório existir e False caso contrário. Isso permite que você controle o fluxo do seu programa com…

Função que converte um valor Hexadecimal em Integer em Delphi function HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of ‘0’..’9′: Result := 16 * Result + (Ord(cTmp) – $30); ‘A’..’F’: Result := 16 * Result +…

Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin StrPCopy(Mensagem1, Edit1.Text + ‘ ‘ + Edit2.Text); StrPCopy(Mensagem2, Edit3.Text + ‘ ‘ + Edit4.Text); Button := Application.MessageBox (Mensagem2,Mensagem1, MB_YESNOCANCEL+ mb_DefButton1+MB_ICONQUESTION); end;