Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#60

Re: Delphi Cleaner 1.2 Beta ist da!

  Alt 29. Sep 2006, 17:58
Zitat von Go2EITS:
if Pos('.part.met.bak',directory + search.Name)>0 then Break;
if Pos('\Downloads.bak',directory + search.Name)>0 then Break;
if Pos('\client.met.bak',directory + search.Name)>0 then Break;
Meiner Meinung nach schlecht gelöst. Ich würde eher:
Delphi-Quellcode:
if (Pos('.part.met.bak',directory + search.Name)=0) and (Pos('\Downloads.bak',directory + search.Name)=0) and (Pos('\client.met.bak',directory + search.Name)=0) then
// Datei ggf. löschen
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat