AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

probleme verzeichnisse zu suchen

Ein Thema von 1ermehr · begonnen am 26. Mär 2008 · letzter Beitrag vom 14. Mai 2008
Antwort Antwort
Seite 2 von 2     12   
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#11

Re: probleme verzeichnisse zu suchen

  Alt 14. Mai 2008, 19:10
Moin 1ermehr,

was das

if fts.Attr = faDirectory then angeht: Lies Dir doch bitte noch mal meinen vorherigen Beitrag durch

Ausserdem sind da noch mehr Kinken drin:
Du erhöhst dcount zweimal
Die Überprüfung mittels DirectoryExists und FileExists kannst Du Dir auch sparen, wenn Du die Attribute richtig testest (z.B.: if (sr.Attr and faDirectory) = faDirectory) then ... um auf Verzeichnis zu prüfen.
Ausserdem prüfst Du den Rückgabewert von FindFirst nicht, auf Erfolg, und Du sicherst FindClose nicht mit try/finally ab (für die letzten Punkte findest Du hier im Forum reichlich Beispiele.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#12

Re: probleme verzeichnisse zu suchen

  Alt 14. Mai 2008, 19:33
Hallo,

kleine Info.

Nur FindFirst prüft faDirectory
bei FindNext muss man das dann manuell selber machen.

Per FindFirst([faDirectory]) /FindNext können also nicht einfach alle
Verzeichnisse ermittelt werden,
ohne entsprechend zusätzlichen Code zu schreiben.


Heiko
Heiko
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz