:::: MENU ::::

Blog

  • 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;
  • abr 11 / 2007
  • 4
[Arquivo]

Sejam bem-vindos

 
Difficulty level not set for this Post
Sejam bem-vindos, amigos, colegas, visitantes, programadores, analistas, webers e todos que se interessam de alguma forma por esta ferramenta de trabalho que tanto tem me ajudado ao longo de minha carreira.

Este blog é apenas um pequeno percentual do que já desenvolvi em todos os meus 10 anos e experiência. Devo muito aos meus colegas de fórum no site da Devmedia e também a tantos outros colegas de trabalho que me ajudaram a chegar até aqui.
Google+
[Fale Conosco] Contato