Veuillez nettoyer votre espace de !

Veuillez nettoyer votre espace de !

Veuillez nettoyer votre espace de ! : Plusieurs milliers de conseils pour vous faciliter la vie.

Oui c'est une bonne question. Dans ce court article, je vais essayer de motiver les programmeurs pour le nettoyage apres leurs programmes.
Dans ce court article, je vais essayer de motiver les programmeurs de nettoyage
apres leurs programmes. Un programme a plusieurs fichiers a garder une trace
dans ce monde occupe.
Un programme prend en charge les fichiers comme le fichier Ini type. Ici, la regle
est de supprimer les vieux trucs dans le fichier, il n'est plus utilise.
Vous avez une nouvelle version et que vous changez le sujet d'un type a l'
une autre. Veuillez supprimer l'ancienne, vous savez ou et quoi -
l'utilisateur n'a pas.
Un programme peut creer des fichiers de sortie ou d'une fonction du programme.
En general, la regle est que le programme cree le programme
le donne a quelqu'un d'autre (un autre programme). Dans un monde bon
'autres' programme possede desormais les fichiers et devrait etre celui qui
supprime les fichiers lorsqu'ils ne sont plus necessaires ou obsoletes.
Un programme peut creer des fichiers journaux. C'est pour moi toujours une vraie bonne idee
pour creer des fichiers journaux. Le programme doit etre capable de fonctionner en trois
modes differents: mode de debogage Complet, connectez-vous en mode d'erreur, et non absolu
journalisation a tous. Une façon intelligente de le faire est de creer un dossier
structure permet de dire, en vertu de l'Exe ou d'emplacement defini par l'utilisateur en vertu de l'
le programme d'installation. Dans le dossier Journal ou ce que vous appelez creer quotidien
des dossiers avec le nom du dossier de AAAAMMJJ de cette façon, votre programme peut
facilement supprimer les anciens dossiers par la simple lecture du nom de dossier.
Vous pouvez choisir de garder tous les fichiers journaux, supprimer tous les fichiers journaux est
de plus que 30 - 60 - 90 jours, ou vous pouvez dire que je ne veux le dernier
7 dossiers. La derniere option est ideal pour les programmes qui ne peut etre
utilise sur hebdomadairement.
Si vous etes en mode de debogage complet, vous pouvez meme vous permettre de du programme de messagerie que vous
les fichiers journaux, vous pouvez surveiller la progression du programme. Vous
peut prendre cela pour un profilage niveau ou vous vous connectez chaque fonction et
ensuite, vous pouvez voir que vos clients sont vraiment les utiliser et ce n'est pas
qui est fortement utilise. Tres bon pour les mises a jour d'informations.
Un truc concernant les fichiers journaux est de creer au format ASCII delimite par des virgules
fichiers (vous pouvez utiliser la propriete Commatext dans la TStringList). Avec
un fichier CSV, vous pouvez utiliser un gestionnaire de base de donnees pour manipuler les donnees dans
le fichier. Si vous n'etes pas dans l'entreprise de consultation le fichier CSV peut
vous aider avec votre client. Si un client souhaite un rapport special, vous pouvez
les guider vers Excel et le livre 'Excel pour les nuls' et vous les clients
pouvez creer des rapports jusqu'le papier de l'imprimante.
Encore une fois s'il vous plaît avoir une fonction de nettoyage des fichiers anciens. Voici
une autre solution.
La DeleteAllFilesOlderThan fonction prend un chemin comme
'C:\MyProgram\' ou un nom de fichier comme 'C:\MyProgram\Tmp\*.Txt'.
Si la Date est 'Maintenant', puis tous les fichiers dans le chemin d'acces ou avec le
nom de fichier sera supprime.

{===================================================================}
Fonction de DeleteAllFilesOlderThan(const FileName: string
& nbsp & nbsp Date: TDateTime): Boolean
{===================================================================}
var
& nbsp & nbsp SearchRec: TSearchRec
& nbsp & nbsp sfichier, sPath: String
begin
& nbsp & nbsp Result := True

& nbsp & nbsp sfichier := ExpandFileName(nom de fichier)
& nbsp & nbsp sPath := ExtractFilePath(sfichier)
& nbsp & nbsp Si FindFirst(sfichier, faAnyFile, SearchRec) = 0, Alors
& nbsp & nbsp Commencer
& ! & ! & ! & nbsp Si (SearchRec.Nom <> ') Et (SearchRec.Nom de <> '.') Et
& ! & ! & ! & ! & ! & nbsp (SearchRec.Nom de <> '..')
& ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & nbsp Si FileDateToDateTime(FileAge(sPath SearchRec.Nom)) < Date
& ! & ! & ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp Si Pas SysUtils.DeleteFile(sPath SearchRec.Nom)
& ! & ! & ! & ! & ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := False
& ! & ! & ! & ! & ! & ! & ! & nbsp Fin
& ! & ! & ! & ! & ! & nbsp Fin
& ! & ! & ! & nbsp Fin
& ! & ! & ! & nbsp Tandis que FindNext(SearchRec) = 0 Do
& ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & nbsp Si (SearchRec.Nom <> ') Et (SearchRec.Nom de <> '.') Et
& ! & ! & ! & ! & ! & ! & nbsp (SearchRec.Nom de <> '..')
& ! & ! & ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp Si FileDateToDateTime(FileAge(sPath SearchRec.Nom)) < Date
& ! & ! & ! & ! & ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Si Pas SysUtils.DeleteFile(sPath SearchRec.Nom)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := False
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Fin
& ! & ! & ! & ! & ! & ! & ! & nbsp Fin
& ! & ! & ! & ! & ! & nbsp Fin
& ! & ! & ! & nbsp Fin
& nbsp & nbsp Fin
& nbsp & nbsp
& nbsp & nbsp SysUtils.FindClose(SearchRec)
fin

- je utiliser cette fonction comme une fonction de base pour d'autres fonctions comme:

{==================================================================}
Fonction de DeleteAllFilesOlderThan30Days(const FileName: string): Boolean
{==================================================================}
Begin
& nbsp & nbsp Resultat := DeleteAllFilesOlderThan(nom de fichier, IncMonth(Maintenant, -1))
Fin
& nbsp
{===================================================================}
Fonction de DeleteAllFilesOlderThan60Days(const FileName: string): Boolean
{===================================================================}
Begin
& nbsp & nbsp Resultat := DeleteAllFilesOlderThan(nom de fichier, IncMonth(Maintenant, -2))
Fin
{===================================================================}
Fonction de DeleteAllFilesOlderThan90Days(const FileName: string): Boolean
{===================================================================}
Begin
& nbsp & nbsp Resultat := DeleteAllFilesOlderThan(nom de fichier, IncMonth(Maintenant, -3))
Fin

Delphi IncMonth fonctionne aussi avec les nombres negatifs donc, si le 'Maintenant' est
le 13 Mai dernier et vous etes a l'aide de -2 vous serez a la recherche au 13 Mars. Alors maintenant
votre programme doit le savoir. Nettoyage de tous les anciens fichiers et les fichiers
le programme n'est plus l'utiliser.