, ja, det er et godt spørgsmål.i denne korte artikel, vil jeg forsøge at motivere programmører at rydde op efter deres programmer., i denne korte artikel, vil jeg forsøge at motivere programmører til rengøring, efter at deres programmer.programmet har flere af filer til følge, for i denne travle verden.,,, et program er støtter filer som ini fil type.reglen her, er at fjerne gamle ting fra den fil, er det ikke længere bruger, har du en ny overgang og skifter du emne fra én type til en anden.fjern den gamle, du ved, hvor og hvad - - bruger ikke,,.,,, kan programmet skabe filer som en produktion eller funktion af programmet, i reglen er, at det program, der skaber programmet, giver det til en anden (et andet program).i en god verden, "andre" - program nu ejer filer og bør være den, der fjerner de filer, når de ikke længere er nødvendige eller forældede.,,, kan programmet skabe logfiler.det er for mig altid en god idé, at skabe logfiler.programmet skal være i stand til at løbe i tre forskellige former: fuld ser, mode, log fejl tilstand og absolut nej, skovning på alle.en smart måde at gøre det på er at skabe en mappe, struktur lader sig under exe placering eller brugeren defineret under, fælde.i henhold til log mappe, eller hvad du nu kalder det skabe dagligt, foldere med mappen navn ååååmmdd den måde dit program kan let slette ældre mapper ved blot at læse den mappe navn.,, du kan vælge at holde alle logfiler, slette alle logfiler, der er ældre end 30 - 60 - 90 dage, eller man kan sige, at jeg kun vil have de sidste 7 mapper.den sidste udvej er godt for programmer, der kun kan være, der anvendes på ugentlig basis.,,, hvis du er i fuld tilstand ser du kan lade dig program - e - mail, log - filerne, - - så du kan følge udviklingen af programmet.du, kan tage dette til en profilering niveau, hvor du logger hver funktion, og så kan man se, at deres kunder er virkelig med, og hvad der ikke er det, det anvendes i stor udstrækning.meget godt for opgraderinger oplysninger.,,, er det et trick med hensyn til logfiler er at skabe dem som ascii - comma delimited, filer (du kan bruge den commatext ejendom i tstringlist).med en csv - fil, du kan bruge de fleste database - massage oplysninger i sagen.hvis du ikke er med i den rådgivende virksomhed den csv - fil kan, hjælpe dig med din klient.hvis en klient, vil have en særlig rapport, du kan lede dem til tops, og bogen "excel for dummies", og de kunder, kan skabe rapporter til papiret løber ud af printeren.,,, igen har en funktion, der vil rydde op i gamle filer.her er en anden løsning.,,, deleteallfilesolderthan funktion kræver enten en vej som, "c: det mig, der styrer det." eller en fuld filnavn som "c: det mig, der styrer det (tmp) *. txt".,, hvis datoen er "nu", så alle filerne på vej eller med filnavn,, vil blive slettet,.,,,, (===================================================================}, funktion deleteallfilesolderthan (denne filnavn: string;,, dato: tdatetime): boolean,,, (===================================================================}, var, searchrec: tsearchrec;,, sfile, spath: string;,, begynder, resultat: = sandt,,,,,,, sfile: = expandfilename (filnavn);,, spath: = extractfilepath (sfile), hvis findfirst (sfile, faanyfile, searchrec) = 0,,Begin,, If (SearchRec.Name <> '') And (SearchRec.Name <> '.') And,, (SearchRec.Name <> '..') Then,, Begin,, If FileDateToDateTime(FileAge(sPath + SearchRec.Name)) < Date Then,, Begin,, If Not SysUtils.DeleteFile(sPath + SearchRec.Name) Then,, Begin,, Result := False;,, End;,, End;,, End;,,, While FindNext(SearchRec) = 0 Do,, Begin,, If (SearchRec.Name <> '') And (SearchRec.Name <> '.') And,, (SearchRec.Name <> '..') Then,, Begin,, If FileDateToDateTime(FileAge(sPath + SearchRec.Name)) < Date Then,, Begin,, If Not SysUtils.DeleteFile(sPath + SearchRec.Name) Then,, Begin, n -, resultat: = falske,,,,,,,,,,,,,,,,,,,, sysutils. findclose (searchrec);,,,,,,, jeg bruger denne funktion som base - funktion til andre funktioner som:,,,, (==================================================================}, funktion deleteallfilesolderthan30days (denne filnavn: string): boolean,,, (==================================================================}, begynder, resultat: = deleteallfilesolderthan (filnavn, incmonth (- 1),,,,,,, (===================================================================}, funktion deleteallfilesolderthan60days (denne filnavn: string): boolean,,, (===================================================================}, begynder.resultat: = deleteallfilesolderthan (filnavn, incmonth (nu - 2),,,,,,,,, (===================================================================}, funktion deleteallfilesolderthan90days (denne filnavn: string): boolean,,, (===================================================================}, begynder, resultat: = deleteallfilesolderthan (filnavn, incmonth (nu - 3),,,,,,,, delphi - incmonth arbejder også med et negativt tal så hvis "nu" er, kan den 13. og du bruger - 2. vil du se den 13. marts.så nu, dit program bør vide.rengøring af alle de gamle sager og sager, at programmet ikke længere bruger.