Buscar

Rotinas em delphi geração de senha randômica, dígito verificador cnpj, cp

Descrição do arquivo Rotinas em delphi, calcula digito verificador cnpj, cpf, pis, geração de senhas randômicas, subtração de datas, alteração do tipo de texto em maiúscula ou minúscula, geração de arquivo texto de eventos de usuários ***. basta incluir o arquivo em seu sistema, e chamar a função em questao... ex: unit ... ... implementation uses rotinas; ... ... procedure t_principal.formclose(sender: tobject; var action: tcloseaction); var e: textfile; begin if not fileexists('c:\windows\backup.txt') then begin x := filecreate('c:\windows\backup.txt'); fileclose(x); assignfile(e,'c:\windows\backup.txt'); rewrite(e); d := formatdatetime('dd/mm/yyyy',date); writeln(e,d); closefile(e); end; try assignfile(f,'c:\windows\backup.txt'); reset(f); readln(f,d); if (strtodate(d)) < (date-3) then showmessage('o sistema está sem backup por mais de 3 dias ! >>> cuidado <<< '); finally closefile(f); end; table1.close; table3.close; *** evento('encerrou o sistema ',us); end;

Publicidade

Vote no arquivo




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes do arquivo

Área: Exemplos - Funções e rotinas
Tamanho: 5.49 KB / 0.01 MB
Adicionado dia: 10/03/07
Por: Ronaldo De Angeli
Visualizado: 6981 vezes
Baixado: 2119 vezes

Download do arquivo

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009