Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0; If Copy(InStr,1,1)=’.’ then InStr:= ‘0’ + InStr; If (Copy(InStr,1,1)=’-‘) and (Copy(InStr,2,1)=’.’) then Insert(‘0’,InStr,2); If InStr[length(InStr)] = ‘.’ then Delete(InStr,length(InStr),1); Val(InStr,Temp,Code); if Code = 0 then Result := Temp; end;
Coloca uma máscara numérica em uma String com números function MaskString(Valor: String) : String; begin Result := FormatMaskText(‘!aaaaaaaaaaa;0; ‘,(FormatFloat(‘#,##0.00’,StrToFloat(valor)))); end;
Cópia de arquivos no Delphi Para copiar arquivos no Delphi via código utilize: CopyFile (ArquivoDeOrigem, ArquivoDeDestino); Copie o arquivo FMXUtils.Pas que está em um dos subdiretórios do Delphi (use Localizar para encontrá-lo) para o diretório do seu programa ou para o diretório onde você coloca seus componentes. Não se esqueça de colocá-lo na cláusula Uses…
No Delphi, podemos criar uma função para contar o número de palavras em uma string fornecida. Código da Função A função WordsCount percorre a string, identificando palavras separadas por espaços. Como Usar? Para utilizar a função e contar palavras em um TMemo, por exemplo: Como Funciona? Conclusão Essa função é útil para contar palavras em…
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…