Ja det er et godt spørsmål. I denne korte artikkelen vil jeg prøve å motivere programmerere til opprydding etter sine programmer. I denne korte artikkelen vil jeg prøve å motivere programmerere å cleanupafter sine programmer. Et program har flere av filene for å holde trackof i denne travle world.a programmet har støtter filer som Ini filtypen. Regelen hereis å fjerne gamle ting fra filen det ikke lenger er using.You har en ny utgivelse, og du endrer temaet fra en type toanother. Vennligst fjern den gamle du vet hvor og hva - theuser betyr not.A programmet kan opprette filer som en utgang eller funksjon av program.In generelle regelen er at programmet som skaper programgives den til noen andre (et annet program). I en god verden "annet" program nå eier filene og bør være en thatremoves filene når det ikke lenger er nødvendig eller utdatert.En program kan opprette loggfiler. Dette er for meg alltid en virkelig god ideato skape loggfiler. Programmet skal kunne kjøre i threedifferent moduser: Full debug-modus, kan du logge feilmodus, og absolutt nologging i det hele tatt. En smart måte å gjøre dette på er å lage en folderstructure kan si under Exe plassering eller brukerdefinert undersetup. Under Logg mappe eller hva du kaller det skape dailyfolders med mappenavnet for ÅÅÅÅMMDD denne måten programmet caneasily slette eldre mapper ved å bare lese mappen name.You kan velge å beholde alle loggfiler, slette alle loggfiler som isolder enn 30 - 60 - 90 dager, eller du kan si at jeg bare vil at last7 mapper. Det siste alternativet er stor for programmer som kan kun beused på ukentlig bases.If du er i full debug-modus kan du selv lar deg programmere email youthe loggfiler, slik at du kan overvåke fremdriften av programmet. Youcan ta dette til en profilering nivå der du logger hver funksjon andthen du kan se at kundene virkelig bruker og hva som notthat mye brukt. Veldig bra for oppgraderinger information.A triks om loggfiler er å skape dem som ASCII komma delimitedfiles (du kan bruke Commatext eiendom i TStringList). Witha CSV-filen du kan bruke de fleste databasesystemet å massere dataene inthe fil. Hvis du ikke er i konsulentvirksomheten CSV-filen canhelp du med klienten. Hvis en klient ønsker en spesiell rapport du canguide dem til Excel og boken "Excel for dummies", og du clientscan lage rapporter til papiret går ut av printer.Again kan ha en funksjon som vil opprydding gamle filer. Her isanother solution.The DeleteAllFilesOlderThan funksjonen tar heller en bane som "C: \\ MyProgram \\" eller en full filnavn som "C: \\ MyProgram \\ Tmp \\ * Txt." .Hvis Datoen er "Now" og deretter alle filene i banen eller med thefilename vil bli slettet. {====================================== =============================} Funksjon DeleteAllFilesOlderThan (konst Filename: string; Dato: TDateTime): Boolean {==== ================================================== =============} Var SearchRec: TSearchRec; sFile, Späth: String, begynner Resultat: = true; sFile: = ExpandFileName (Filename); Späth: = ExtractFilePath (sFile); Hvis FindFirst (sFile, faAnyFile, SearchRec) = 0 Så begynner Hvis (SearchRec.Name < > '') og (SearchRec.Name < > '.') Og (SearchRec.Name < > '.. ') Deretter begynner Hvis FileDateToDateTime (FileAge (Späth + SearchRec.Name)) < Dato Så begynner Hvis ikke SysUtils.DeleteFile (Späth + SearchRec.Name) da begynne Resultat: = False; Slutt; Slutt; Slutt; Mens FindNext (SearchRec) = 0 Vet begynner Hvis (SearchRec.Name < > '') og (SearchRec.Name < > '.') Og (SearchRec.Name < > '..'), og start Hvis FileDateToDateTime (FileAge (Späth + SearchRec.Name)) < Dato Så begynner Hvis ikke SysUtils.DeleteFile (Späth + SearchRec.Name) da begynne Resultat: = False; Slutt; Slutt; Slutt; Slutt; Slutt; SysUtils.FindClose (SearchRec); end;
jeg bruke denne funksjonen som en base funksjon for andre funksjoner som: {===================== =============================================} Funksjons DeleteAllFilesOlderThan30Days (konst Filename: string): Boolean {========================================== ========================} Begynn Resultat: = DeleteAllFilesOlderThan (Filename, IncMonth (Nå, -1)); End; {================================================= ==================} Funksjons DeleteAllFilesOlderThan60Days (konst Name: string): boolsk; {=================== ================================================} Begynn Resultat: = DeleteAllFilesOlderThan (Filename, IncMonth (Nå, -2)); End {=============================== ====================================} Funksjons DeleteAllFilesOlderThan90Days (konst Name: string): boolsk; {= ================================================== ================} Begynn Resultat: = DeleteAllFilesOlderThan (Filename, IncMonth (Nå, -3)); End;
Delphi IncMonth fungerer også med negative tall, så hvis " Nå "Ismay 13 og du bruker -2 du skal se på mars 13. Så nowyour program bør vite. Opprydding alle gamle filer og filer thatthe programmet ikke lenger bruker.