:::: MENU ::::

Blog

  • abr 17 / 2007
  • 0
análise, bios, codegear, cpu, delphi, Desenvolvimento, dicas, função, function, informações, mouse, novidades, procedimento, procedure, programação

Várias dicas de Delphi

 
Difficulty level not set for this Post

Resolvi compartilhar algumas funções que utilizo no meu dia-a-dia a pedido de alguns colegas que me enviaram e-mails. Nesse artigo reuni alguns exemplos bem simples de:
  • Esconder e ocultar o mouse;
  • Criando um formulário diferente;
  • Capturar a data da BIOS;
  • Capturar outras informações da BIOS;
  • etc
  • abr 16 / 2007
  • 2
análise, borland, codegear, delphi, Desenvolvimento, dicas, função, function, ie, novidades, procedimento, procedure

Como manipular as url’s visitadas no Internet Explorer

 
Difficulty level not set for this Post

Manipular as url’s visitadas no Internet Explorer já foi tema de diversas discussões em fóruns que participei. A verdade é que fazer isso é simples demais e apenas com algumas entradas e leituras do Regedit (Editor de Registros do Windows) é possível fazer o controle total de tais url’s. Vejam como é fácil:

Continuar Lendo…

  • abr 12 / 2007
  • 3
ano_bissesto, delphi, dicas, função, function, procedimento, procedure

Ano Bissexto

 
Difficulty level not set for this Post

Em diversos sistemas, uma das principais preocupações do desenvolvedor é identificar se o ano é ou não bissexto. A explicação varia de acordo com cada sistema, mas um dos principais motivos é justamente para efetuar cálculos diversos, tais como: juros, mora, etc.

Nesse artigo você aprende a criar, de maneira bastante simples, funções que efetuam os cálculos necessários para descobrir se o ano é bissexto. Insira os métodos em sua classe ou unit de funções padrão e use sempre em seus sistemas.


Os métodos abaixo dispensam explicações mais detalhadas. Apenas escreva-as em suas units e passe a utilizá-las.

//Novo tipo de dados, TData
TData = class
Mes, Dia, Ano: Integer;

procedure DefVal(m, d, a: Integer);
function AnoBis: Boolean;
Declare uma nova variável global.
var
  Form1: TForm1;

//novo objeto "global" da classe TData
UmDia: TData;

Abaixo o código da procedure DefVal e da function AnoBis.

procedure TData.DefVal(m, d, a: Integer);
begin
  Mes := m;
  Dia := d;
  Ano := a;
end;

function TData.AnoBis: Boolean;
begin
  if (Ano mod 4 <> 0) then
  AnoBis := False
  else if (Ano mod 100 <> 0) then
    AnoBis := True
  else if (Ano mod 400 <> 0) then
    AnoBis := False
  else
    AnoBis := True;
end;
Google+
[Fale Conosco] Contato