FindFirst und FindNext funktionieren nicht mehr richtig

poweruser · Hält's aus hier Beiträge: 2

Hallo Zusammen,

habe mir eine Funktion mit FindFirst und FindNext programmiert. Die Funktion funktioniert komischerweise nicht immer.

Im Internet habe ich folgenden Link gefunden:

entwickler-forum.de/showthread.php?t=4308

Leider erreiche ich den Autor nicht, ...

Wisst Ihr vielleicht, was mit einer "Bitweise Ausklammerung von faDirectory" gemeint ist?

Danke und Grüße,
Poweruser

Moderiert von Christian S.: Topic aus Windows API verschoben am So 23.12.2007 um 16:51

LorenzS · Beiträge: 128 MS-DOS, WIN 7, WIN 10 BP7.0, D3, D5

"Bitweise Ausklammerung"
Jedes Bit der FileAttribute steht für ein eigenes Attribut und $10 steht für Verzeichnisse
ja.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

   Found := FindFirst(Path, Attr, SearchRec);
    while Found = 0 do
    begin
      if (SearchRec.Attr and faDirectory)=0 then //wenn es kein Directory ist
       ProcessSearchRec(SearchRec);
      Found := FindNext(SearchRec);
    end;
   FindClose(SearchRec);

natürlich kannst du auch das faDirectory ($10) bei attr von Findfirst weg lassen

wenn du nur Verzeichnisse suchst heist es

markieren

Delphi-Quelltext

1:	if (SearchRec.Attr and faDirectory)=faDirectory then

poweruser · Hält's aus hier Beiträge: 2

Hi Lorenz,

Du bist echt ein Gott, solch eine schnelle Antwort und dann hast Du mir echt noch auf die Sprünge geholfen, jetzt hat es nämlich geklappt. Nun weiß ich auch den Hintergrund und werde mich darüber noch ein wenig darüber informieren.

Hatte es so wie bei Dir, allerdings in Quellcodezeile 4 hatte ich kein faDirectory stehen. Irretiert hat mich, dass er zwar in die Schleife gelaufen ist, es manchmal funktioniert hat, manchmal jedoch wiederum nicht. Aber nun habe ich die Lösung, ein herzliches Danke.

Danke und Grüße,
Poweruser

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme