Bitte reinigen Sie Ihren Platz!

Bitte reinigen Sie Ihren Platz!

Bitte reinigen Sie Ihren Platz! : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Ja das ist eine gute Frage. In diesem kurzen Artikel werde ich versuchen Programmierer zur Reinigung nach ihrer Programme zu motivieren.
In diesem kurzen Artikel werde ich versuchen, die Programmierer, die Bereinigung zu motivieren
nach ihrer Programme. Ein Programm hat mehrere Dateien zu behalten
der in dieser hektischen Welt.
Ein Programm muss unterstützt Dateien wie die Ini-Datei-Typ. Die Regel hier
ist das alte Zeug aus der Datei zu entfernen, ist es nicht mehr verwendet wird.
Sie haben eine neue Version und Sie wechseln das Thema von einem zu
eine andere. Bitte entfernen Sie die alte, man Sie wissen, wo und was - die
Benutzer ist nicht möglich.
Ein Programm kann Dateien als Ausgabe oder Funktion des Programms erstellen.
Im Allgemeinen ist die Regel, dass das Programm, das Programm erstellt
gibt es jemand anderes (ein anderes Programm). In einer guten Welt der
'andere' Programm jetzt besitzt die Dateien und sollte derjenige sein, der
werden die Dateien entfernt, wenn nicht mehr benötigte oder veraltete.
Ein Programm kann die Log-Dateien erstellen. Dies ist für mich immer eine wirklich gute Idee
Log-Dateien zu erstellen. Das Programm sollte in drei ausgeführt werden
verschiedene Modi: volle Debug-Modus, Fehler-Log-Modus und absolut nicht
Protokollieren überhaupt. Eine intelligente Art und Weise dies zu tun ist, erstellen Sie einen Ordner
Struktur kann sagen, unter den Exe-Speicherort oder Benutzerdefiniert unter
einrichten. Erstellen Sie unter den Protokollordner oder was auch immer man es nennen täglich
Ordner mit dem Namen JJJJMMTT auf diese Weise kann Ihr Programm
Löschen Sie ältere Ordner leicht durch Einlesen der Ordnername.
Sie können auswählen, halten alle Log-Dateien, löschen Sie alle Protokolldateien, die
älter als 30-60-90 Tage, oder Sie sagen kann, ich will nur das letzte
7 Ordner. Die letzte Option ist ideal für Programme, die möglicherweise nur
auf pro-Basen verwendet.
Wenn Sie im vollständigen Debugmodus sind einmal bestand, die Sie programmieren können Sie per e-Mail
die Log-Dateien, so können Sie den Fortschritt des Programms überwachen. Sie
kann dies zu einer Profilebene, wo Sie jede Funktion melden, dauern und
Danach kannst du sehen, dass Ihre Kunden wirklich verwenden und was nicht
Das stark genutzt. Sehr gut für Upgrade-Informationen.
Ein Trick bezüglich Protokolldateien besteht darin, diese als ASCII-Trennzeichen getrennt anlegen
Dateien (Sie können die Commatext-Eigenschaft in der TStringList verwenden). Mit
eine CSV-Datei, die Sie die meisten Datenbankmanager verwenden können, um die Daten in massage
die Datei. Wenn Sie nicht in das consulting-Geschäft sind können die CSV-Datei
helfen Sie mit Ihrem Kunden. Wenn ein Client einen Sonderbericht soll können Sie
Führen sie in Excel und das Buch 'Excel für Dummies' und Sie Kunden
können Berichte erstellen, bis das Papier aus dem Drucker ausgeführt wird.
Bitte halten Sie wieder eine Funktion, die Bereinigung alter Dateien wird. Hier ist
eine andere Lösung.
Die DeleteAllFilesOlderThan-Funktion akzeptiert entweder einen Pfad wie
'C:\MyProgram\' oder einen vollständigen Dateinamen wie 'C:\MyProgram\Tmp\*. 'Txt'.
Wenn das Datum 'Jetzt' dann alle Dateien im Pfad oder mit der
Dateinamen werden gelöscht.

{===================================================================}
Funktion DeleteAllFilesOlderThan (const FileName: string;
Datum: TDateTime): Boolean;
{===================================================================}
var
SearchRec: TSearchRec;
sFile, sPath: String;
beginnen
Ergebnis: = True;

sFile: = ExpandFileName(FileName);
sPath: = ExtractFilePath(sFile);
Wenn FindFirst (sFile, FaAnyFile, SearchRec) = 0 Then
BEGIN
Wenn (SearchRec.Name <> '') und (SearchRec.Name <> '.') Und
(SearchRec.Name <> '..') Dann
BEGIN
Wenn FileDateToDateTime (FileAge (sPath + SearchRec.Name)) < Datum dann
BEGIN
If Not SysUtils.DeleteFile(sPath + SearchRec.Name) Then
BEGIN
Ergebnis: = False;
Ende;
Ende;
Ende;
Während FindNext(SearchRec) = 0 zu tun
BEGIN
Wenn (SearchRec.Name <> '') und (SearchRec.Name <> '.') Und
(SearchRec.Name <> '..') Dann
BEGIN
Wenn FileDateToDateTime (FileAge (sPath + SearchRec.Name)) < Datum dann
BEGIN
If Not SysUtils.DeleteFile(sPath + SearchRec.Name) Then
BEGIN
Ergebnis: = False;
Ende;
Ende;
Ende;
Ende;
Ende;

SysUtils.FindClose(SearchRec);
Ende;

Ich verwende diese Funktion als Basis Funktion für andere Funktionen wie:

{==================================================================}
Funktion DeleteAllFilesOlderThan30Days (const FileName: String): Boolean;
{==================================================================}
BEGIN
Ergebnis: = DeleteAllFilesOlderThan (FileName, IncMonth (jetzt, -1));
Ende;

{===================================================================}
Funktion DeleteAllFilesOlderThan60Days (const FileName: String): Boolean;
{===================================================================}
BEGIN
Ergebnis: = DeleteAllFilesOlderThan (FileName, IncMonth (jetzt -2));
Ende;
{===================================================================}
Funktion DeleteAllFilesOlderThan90Days (const FileName: String): Boolean;
{===================================================================}
BEGIN
Ergebnis: = DeleteAllFilesOlderThan (FileName, IncMonth (jetzt -3));
Ende;

Die Delphi-IncMonth arbeitet auch mit negativen Zahlen also wenn 'Jetzt' ist
13. Mai, und Sie verwenden-2, die Sie bei 13 März sein werden. So, jetzt
Ihr Programm wissen sollten. Bereinigung der alten Dateien und Dateien, die
Das Programm wird nicht mehr verwendet.