Delphi Cleaner 1.4 [Update!] 2000/XP/Vista

[Go2EITS]

@Luckie

Zitat:

Ich würde die Schaltflächen durch Menüs ersetzen und zusätzlich eine Toolbar nehmen (Musst nur ein paar schöne Bildchens finden). Das, was in der Groupbox "Ereignis" steht würde ich in eine Statusbar verfrachten, dazu ist sie da. Un für die Einstellungen könnte man einen extra Dialog nehmen.

Danke! Hatte Dein Posting übersehen. Das Programm sollte erstmal fehlerfrei laufen, ok? Sonst wird es für mich zu schwierig.


@pertzschc

Zitat:

Ist wohl ein Geheimnis. Auch ok.

War von mir ernst gemeint. Es wird niemand gezwungen.
Das war beim ersten Mal auch mein Ergebnis, nur in ca. 2 Min.
Die Combobox ist von Natur aus ein Feld, in der man selbst Eingaben vornehmen kann.
(Siehe Hilfe. Wusste ich zuvor auch nicht. Wie stellt man die Eingabe ab?)

Zwischenstand zum Programm:
Nun fehlt nur noch die Belegung der 2 optionalen Endungen, die noch Leer sind und die LogDateien!
Wahrscheinlich wird die Version Freitag fertig.

Viele Grüße an die DP!
Go2EITS

[Sunlight7]

Die Eingabe kannste abstellen, wenn Du den Style auf csDropDownList setzt.

Hab noch 1.5 (3 halbe) Bugs gefunden.

• Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.
• Die von Norton Protection geschützten Dateien vom Papierkorb nicht anzeigen.
• Nimm das Leerzeichen vom Standard Backuppfad am Ende raus, sonst kann das Verzeichnis nicht mit dem Explorer gelöscht werden.

PS: 13 Dateien, 14.56 KB (hab meinen Cleaner mal kurz ausgeschaltet)

Wenn man ganz kleinlich ist: 198 KB stimmen nicht mehr, es sind bereits 200 KB

[Fuchtel]

Hallo Go2EITS,

Du schreibst:

Zitat:

... Bei der Suche hatte ich vergessen, die Liste im Speicher, wenn TStringList.Count > 0ist. mit TStringList.clear zu initialisieren. ...

Bedeutet das, das Du erst eine Stringliste mit den gefundenen Dateien füllst, und dann damit die TCheckListBox.Items füllst oder Assignesd?

Warum füllst Du in deiner Suchfunktion nicht gleich die TCheckListBox.Items und sparst Dir somit die Stringliste.

Weitere Fehler:

Sind folgende Dateien vorhanden:

D:\Test1.bak
D:\Test2.baked

und wird nach *.bak gesucht, so findet er beide Dateien!
Dabei kan die (hier willkürliche) Endung *.baked irgend eine andere wichtige Bedeutung haben.

Dies liegt daran, das bei

FindFirst(IncludeTrailingPathDelimiter(Directory) + Filter, cAttr, SearchRec) ... FindNext der Filter nicht korrekt ausgewertet wird.

Du mußt also jede gefundene Datei noch mal selbst überprüfen:

• Function StrSatisfy aus Key Objects Library (C) 2000 by Kladov Vladimir (http://bonanzas.rinet.ru (E)) (hoffentlich noch gültig!)

• Zumindest aber die Länge der Dateierweiterung (hier 3) testen. (Am schnellsten von hinten bis zu PathDelim zählen).

Fuchtel

[oki]

Hi,

das editieren in der ComboBox kann mit der eigenschaft "Style" im OI eingestellt werden. Ändere die Eigenschaft von "csDropDown" in "csDropDownList". dann können nur noch die Einträge ausgewählt werden.

gruß oki

PS. die gelöschten Corel-draw-Dateien waren keine Delphidateien, sonden Backup's von CorelDraw.

[Go2EITS]

@sunlight7

Zitat:

Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.

- erledigt. Showmessage eingefügt, wenn kein Backupverzeichnis vorhanden ist.

Zitat:

Die von Norton Protection geschützten Dateien vom Papierkorb nicht anzeigen.

Wer das Programm von Norton installiert, hat seinen Grund. Da pfusche ich lieber nicht rein.

Zitat:

Nimm das Leerzeichen vom Standard Backuppfad am Ende raus, sonst kann das Verzeichnis nicht mit dem Explorer gelöscht werden.

- War nur in der Anzeige drin, Das Verzeichnis wurde nicht mit \backup \ angelegt. Die Anzeige\Shellexecute habe ich entsprechend geändert.

@oki:
Das mit dem Editieren der Combobox habe ich gefunden und geändert. Nun kann man es nicht mehr editieren.

Zitat:

PS. die gelöschten Corel-draw-Dateien waren keine Delphidateien, sonden Backup's von CorelDraw.

Hast Du einen Vorschlag, wie ich die überspringen kann? Liegen die Backups generell in einem speziellen Ordner oder bezieht es sich auf die erstellten Grafiken/Objekte, die der User "wahllos" über die Festplatte verteilt? Sonst muss ich den User warnen, Coreldraw Dateien zu überspringen, bzw. nicht zu markieren.

@Fuchtel: Nein, die Daten schreibe ich in ein Tstringlist und dann ins Backup.
Bei der erneuten Suche habe ich die Tstinglist nicht neu initalisiert. Das ist alles.

Zitat:

Warum füllst Du in deiner Suchfunktion nicht gleich die TCheckListBox.Items und sparst Dir somit die Stringliste.

Sehr gute Idee. Aber ich habe die Daten in der TStringlist und die Filenames in der TCheckListBox.

Zitat:

D:\Test1.bak
D:\Test2.baked

Das ist komisch. Das sollte der Torrycode nicht. Ist ein Bug. Den versuche ich zu reproduzieren und zu beseitigen. Im Übrigen hast Du besonders konstruktive Vorschläge mit Lösungen. Das hilft richtig weiter. Vielen Dank!

@Luckie
Zum Projekt: Ein TMainmenue ist auch schon integiert. den Sinn und Zweck einer TmainMenue ist mir klargeworden. Aber: Die Suche und die Einstellungen möchte ich nebeneinander. Sonst friemelt man sich zu Tode, um eine Suche auszuführen. Das hat mich bei vielen Programmen gestört, dass man für jede Kleinigkeit über ein TMainmenue sich Hangeln muss und dann über zig Ebenen muss.

Zum Programmfortschritt:
- In mein Programm kommt ein Button dazu: DeepClean: Alle Laufwerke werden mit allen eingeschalteten Optionen ausgeführt und alle gefunden Dateien sofort gelöscht.
- Die Einstellungen der Optionen werden nun gespeichert und bei Neustart de Programmes geladen. (ohne Registry!)
- Wenn ein eigener Path zum Säubern gewünscht wird, wird die Combobox disabled und nur der Path gescannt.

Ist noch ein wenig Arbeit. Ihr habt ganz hervorragende Vorschläge. Respekt! Weiter so. Beste Grüße an die DP von
Go2EITS

[Luckie]

[quote="Go2EITS"]@sunlight7

Zitat:

Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.

- erledigt. Showmessage eingefügt, wenn kein Backupverzeichnis vorhanden ist.[quote]
Und warum deaktivierst du ihn nicht einfach? Ist schöner, als wenn dem benutzer so eine Messagebox ins Gesichtspringt, die er erst wieder wegklicken muss, um weiter arbeiten zu können.

[pertzschc]

Zitat von Go2EITS:

Ist noch ein wenig Arbeit. Ihr habt ganz hervorragende Vorschläge. Respekt! Weiter so.

Weiter geht es: Schau Dir mal die .Top Werte Deiner 3 Groupboxen an, von links nach rechts wird der obere Beginn je um 1-2? Pixel nach unten verschoben.

Gruß,
Christoph

[Go2EITS]

@Luckie
OK. Die Meldung nehme ich in die Statusleiste. Erledigt.

@pertzschc
Mach ich dann, wenn den Code mit TurboExplorer compliere. Da kann man die GuiObjekte besser ausrichten. Schreibe unter D7, wegen CnWizards.

Beste Grüße
Go2EITS

[Luckie]

Zitat von Go2EITS:

@Luckie
OK. Die Meldung nehme ich in die Statusleiste. Erledigt.

Nicht in die Statusleiste. Deaktivier die Schaltfläche so lange kein entsprechendes Verzeichnis existiert.

[Go2EITS]

@Luckie
Ist im TMainmenue und wunschgemäß erledigt.