[Delphi] Pesquisa entre datas

"Nesse Tutorial estarei ensinando a fazer pesquisa de datas só pelo mês ou pela data completa, um código muito importante em um sistema com certeza todo sistema precisa realizar uma consulta por data, seja em relatórios, ou em uma outra tela qualquer de seu sistema."


For em Delphi

"Artigo traduzido da versão em inglês do Delphi Basics. A palavra-chave “FOR” inicia um ciclo de controle, que é executado um número finito de vezes. A variável é definida como o resultado da expressão 1.
Se o resultado for inferior ou igual ao resultado da segunda expressão (quando especificada), assim, a instrução é executada. A variável é então incrementada por 1 e o processo é repetido até que o valor da variável exceder o valor de expressão 2.
Para a técnica downto, o valor da variável é verificado como sendo maior do que ou igual à  segunda expressão, e o seu valor é decrementado no final do laço for. As expressões podem resultar em qualquer tipo ordinal – Integers, Characters ou Enumerations. A Declaração for pode compreender uma única linha, ou um conjunto de instruções com um bloco de início (begin) / fim (end)."

Função para Criptografia MD5

Uma das melhores criptografias existentes no momento, a md5 e inquebrável ela só criptografa mais não descriptografa, sendo que é uma segurança a mais para o usuário e para o dono do software, pois pode ser usada em varias ocasiões, eu mesmo utilizo e aprovo, então vim postar aqui para vocês esta função, se caso não conseguirem usar eu dou uma ajuda só postar um comentário ai.


Obs : para que essa function possa funcionar precisa ter :
A unit Wcrypt2.pas.
no link abaixo você encontra a unit necessária
http://stuff.irsoft.de/CryptoAPI2.zip

Código.:

function
 TForm1.md5(const Input: String): String;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7fof Byte;
  dwHashLen: DWORD;
  pbContent: PByte;
  i: Integer;
begin
  dwHashLen := 16;
  pbContent := Pointer(PChar(Input));
  Result := '';

  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 00, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashLen, 0then
        begin
          for i := 0 to dwHashLen - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
    CryptReleaseContext(hCryptProvider, 0);
  end;
  Result := AnsiLowerCase(Result);

end;


Bom pessoal então era isso que eu queria estar compartilhando com vocês, ate a próxima postagem

[Delphi] Entendendo mais sobre variaveis

"Os dados que são armazenados na memória do computador. Para que não seja necessário se referir a estes dados de forma direta, através de um endereço numérico difícil de memorizar, o compilador nos permite trabalhar variáveis com esta finalidade. Escolhendo nomes simples e sugestivos (mnemônicos) para as variáveis (tais como funcao, telef, client, id)  facilita e muito a compreensão dos códigos"

[Apostila] Delphi Criando Calculadora,Jogo Velha e muito mais

"Ola pessoal beleza ?, Vim aqui postar uma apostila aonde vocês iram criar uma calculadora, Jogo da Velha, Bloco de Notas um relógio despertador e irão fazer vários outros exercícios, a apostila auxilia bastante em quem esta iniciando em Delphi"