Verificando ano bisexto pelo Delphi

Verificando ano bisexto pelo Delphi Utiliza e a função abaixo: function AnoBis(Data: TDateTime): Boolean; {Verifica se um ano é bisexto, retornando True em caso positivo} var Dia,Mes,Ano : Word; begin DecodeDate(Data,Ano,Mes,Dia); if Ano mod 4 <> 0 then AnoBis := False else if Ano mod 100 <> 0 then AnoBis := True else if Ano

Continuar lendo »

Converte um valor Hexadecimal em Integer

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 +

Continuar lendo »

Converte String em Booleano

Função que converte String em Booleano em Delphi function strToBoolean(s: string): boolean; begin result := ((uppercase(s) = ‘TRUE’) or (uppercase(s) = ‘T’) or (uppercase(s) = ‘YES’) or (uppercase(s) = ‘Y’) or (uppercase(s) = ‘ON’) or (uppercase(s) = ‘O’) or (uppercase(s) = ‘1’)); end;  

Continuar lendo »

Captura a tela e salva-a em um Bitmap

Função que captura a tela e salva-a em um Bitmap em Delphi function CaptureScreenRect( ARect: TRect ): TBitmap; // Exemplo // Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height))); var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right – Left; Height := Bottom – Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width,

Continuar lendo »

Como saber se o aplicativo já foi aberto no Delphi

Dicas de Programação Delphi

Como saber se o aplicativo já foi aberto Para saber se o aplicativo já foi aberto no Delphi, Insira o código abaixo dentro do arquivo .DPR de sua aplicação:

Obrigado Espero que esta dica tenha sido útil e tenha lhe ajudado a aumentar seus conhecimentos na linguagem de programação Delphi. Se você gostou, compartilhe estas dicas com um amigo ou participe

Continuar lendo »
Pages:«12345678...22»