Filtra todos os números de uma string
Filtra todos os números de uma string em Delphi Function SoNumero(Texto : String) : String; var Ind : Integer; TmpRet…
-
-
Imprime um texto em outro angulo diferente de 90º
Rotina que imprime um texto em outro angulo diferente de 90º em Delphi procedure AngleTextOut(CV: TCanvas; const sText: String; x,…
-
Como Alterar o Cursor do Mouse para Ampulheta no Delphi
Alterando o Cursor do Mouse no Delphi Se você precisa indicar visualmente que um processo está em execução, uma boa…
-
Verificando a conexão de Internet via Delphi
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um…
-
Como Ocultar e Mostrar o Cursor do Mouse em Delphi
Como Ocultar e Mostrar o Cursor do Mouse em Delphi Controlar a visibilidade do cursor do mouse pode ser útil…
-
Converte String em Pchar
Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex]…
-
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);…
