Escreve na diagonal
Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf :…
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…
5 Dicas de Delphi
5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. Verificando se uma data…
Formata valor numérico inserindo mascaras de ponto.
Formata valor numérico inserindo mascaras de ponto. function FormatNumber(l: longint): string; var len, count: integer; s: string; begin str(l, s);…
Converte uma String em Real
Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0;…
Coloca uma máscara numérica em uma String com números
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
Cópia de arquivos no Delphi Para copiar arquivos no Delphi via código utilize: CopyFile (ArquivoDeOrigem, ArquivoDeDestino); Copie o arquivo FMXUtils.Pas…
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 Remover Pontos e Vírgulas de um Valor Numérico no Delphi
No Delphi, podemos criar uma função para remover pontos (.) e vírgulas (,) de uma string numérica. Isso é útil…