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;
Download do arquivo
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009