Delphi Dateien rekursiv suchen und in Typisirtes Array schreiben.

Thema durchsuchen

Ansicht

Themen-Optionen

Dateien rekursiv suchen und in Typisirtes Array schreiben.

Ein Thema von zer00 · begonnen am 6. Mär 2006 · letzter Beitrag vom 7. Mär 2006

Vorheriger Beitrag

Nächster Beitrag

alzaimar

(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge

Delphi 2007 Enterprise

Re: Dateien rekursiv suchen und in Typisirtes Array schreibe

6. Mär 2006, 22:45

Mööööp!

markieren

Delphi-Quellcode:

			 
if copy(sr.Name,1,1)<> '.' then begin

   if(sr.attr <> 0)and(faDirectory <> 0) then <-------------

     GetAllFiles(Frec,dir+'\'+ sr.Name, datei,ext);

Die if-Abfrage ist irgendwie falsch.

Richtig wäre (ungetestet)
if (sr.Attr and faDirectory) <> 0

"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")

Zitat

« Vorheriges Thema | Nächstes Thema »

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

Foren-Regeln

Gehe zu: