Platzhalter in FindFirst/FindNext

[p80286]

@Himi das wir diese Verschlimmbesserungen in W ausbaden dürfen find ich gut!

@BLUB guter Hinweis! wird ich schnellstens verwursten!

@M Der lokale Test fehlt mir, da ich im Augenblick nicht dazu komme, da was vernünftiges aufzubauen, wäre aber zu berücksichtigen.
(der Beispielkode ist der Ausschnitt aus einem größeren Stück und Deine Verkürzung ist leider kontraproduktiv)

Vielen Dank an alle, mal schauen was sich daraus machen läßt.

@Himi der Übeltäter war D2006! noch etwas was ich prüfen müßte!

Gruß
K-H

[nahpets]

Für den Fall, dass das Dateisystem NTFS sein sollte, so reicht faAnyFile nicht aus. Vom Filesystem komprimierte Dateien werden damit nicht gefunden.

Bei mir sieht das in 'ner entsprechenden Klasse so aus (Ausschnitt):

Delphi-Quellcode:

Var
  sr                  : TSearchRec;
  FileAttrs           : Integer;
Begin
  FileAttrs :=             SysUtils.faReadOnly;
  FileAttrs := FileAttrs + SysUtils.faHidden;
  FileAttrs := FileAttrs + SysUtils.faSysFile;
  FileAttrs := FileAttrs + SysUtils.faDirectory;
  FileAttrs := FileAttrs + SysUtils.faArchive;
  FileAttrs := FileAttrs + SysUtils.faSymLink;
  FileAttrs := FileAttrs + 2048; // komprimierte Dateien unter NTFS

  // faReadOnly  = $00000001 platform;
  // faHidden    = $00000002 platform;
  // faSysFile   = $00000004 platform;
  // faVolumeID  = $00000008 platform;
  // faDirectory = $00000010;
  // faArchive   = $00000020 platform;
  // Summe bis hierher entspricht: 
  // faAnyFile   = $0000003F;
  // 
  // faSymLink   = $00000040 platform;

(Zugegeben unter Delphi 7, weiß nicht, ob neuere Delphis die komprimierten Dateien unter NTFS inzwischen bei Nutzung von faAnyFile berücksichtigen.)

[himitsu]

PS: BitMasken addiert man nicht.

OR

[EmWieMichael]

Zitat von p80286:

...
und Deine Verkürzung ist leider kontraproduktiv
...

Das klingt spannend. Warum ist denn eine Routine mit weniger Code, die exakt das gleiche Ergebnis liefert, wie eine Routine mit mehr Code kontraproduktiv?

[stalkingwolf]

btw. Vorsicht mit FindFirst/FindNext.
Es kann sein das nur 512 Dateien zurückgegeben werden und danach FindNext keinen Treffer mehr findet.
Da bin ich mal bei verrückt geworden.

[Alter Mann]

Moin, Moin,

versuch mal den Code aus dem Anhang, er sollte das machen was du suchst/brauchst.