FindFirst - faAnyFile, SearchRec

[capo]

Hallo,
wenn ich hiermit ein Vezeichnis wähle um mir die Pfade der darin enthaltenen Dateien in eine Listbox zu schreiben:

Delphi-Quellcode:

if
FolderDialog1.Execute=True then begin
s:=FolderDialog1.Directory;

i := FindFirst(s+'\*.*', faAnyFile, SearchRec);
while i = 0 do
  begin
  ListBox1.Items.Add(s+'\'+SearchRec.Name);

..bekomme ich manchmal in der ersten beiden Zeilen der Listbox keine Dateipfade angezeigt... sondern nur das Verzeichnis
(schaut euch bitte das Bild an, wüßte nicht wie ich das sonst genauer beschreiben soll)

Wenn ich aber mit den dateien in der Listbox arbeiten will gibst einen Fehler, deshalb müßen falls vorhanden die ersten beiden
Dateilosen Zeilen raus,

Wie muss ich vorgehen?

gruss vom capo

[Gruber_Hans_12345]

einfach die "Filenamen" ausblenden wenn die ein . oder .. sind
das ist das aktuelle bzw. das parent Verzeichnis (ist ganz normal das diese gefunden und angezeigt werden)

[capo]

HI

wie blende ich den . und .. aus?

gruss capo

[Gruber_Hans_12345]

Delphi-Quellcode:

if
FolderDialog1.Execute=True then begin
s:=FolderDialog1.Directory;

i := FindFirst(s+'\*.*', faAnyFile, SearchRec);
while i = 0 do
  begin
    if not ( (SearchRec.Name = '.') or (SearchRec.Name = '..') ) then
  ListBox1.Items.Add(s+'\'+SearchRec.Name);

[Muetze1]

Sehr schön - und Dateien mit dem Namen werden denn gleich mit ausgeblendet. Durch NFS Clients etc ist nicht gleich gesagt, dass es bei allen unter Windows benutzten Dateisystemen dies nicht existieren kann...

[Gruber_Hans_12345]

Zitat von Muetze1:

Sehr schön - und Dateien mit dem Namen werden denn gleich mit ausgeblendet. Durch NFS Clients etc ist nicht gleich gesagt, dass es bei allen unter Windows benutzten Dateisystemen dies nicht existieren kann...

wie wäre es wenn du statt dem kommentar einfach ne lösung präsentieren würdest dafür?

[TBx]

Möchtest DU die in dem Pfad enthaltenen Unterordner auch sehen?
Wenn nicht, dann ruf das FirndFirst mit

Code:

(faAnyFile and not FaDirectory)

auf.
Dann bekommst DU gar keine Ordner (weder übergeordnete noch untergeordnete) zu sehen.

Eine Anmerkung am Rande:

Du schreibst:
if FolderDialog1.Execute=True then Du solltest hier nur
if FolderDialog1.Execute then verwenden.

Warum das so ist, ist hier schon oft diskutiert worden und über die Forensuche leicht zu finden.

Gruß

Thomas

[capo]

(faAnyFile and not FaDirectory) Danke, genau das war's.

Zitat:

Du solltest hier nur
Delphi-Quellcode: markieren
if FolderDialog1.Execute then verwenden.

Warum das so ist, ist hier schon oft diskutiert worden und über die Forensuche leicht zu finden.

also ich hab nichts gefunden, hab zwar viel gefunden aber keine Erklärung.
Ich bezweifel nicht das es nichts gibt.
Magst du es trotzdem mal erklären?

gruss capo

[Muetze1]

Der Unterschied liegt darin, dass True als konstante mit einem festen Wert definiert wurde. Wenn du nun einen Vergleich auf True in deiner IF Bedingung schreibst, dann wird das Ergebnis direkt auf diesen konstanten Wert durchgeführt. Das Problem hierbei liegt im Detail, denn ein boolscher Wert wird wie folgt zugeordnet:

0 => False
<> 0 => True

Somit ist alles ungleich 0 True, und das ist immer mehr als eine bestimmte Konstante beinhalten kann. Daher ist es hier von Vorteil einfach diesen direkten Vergleich weg zu lassen und nur das Execute aufzurufen ohne Vergleich. IF Bedingungen vergleichen das Ergebnis auf Gleichheit mit 0 und handeln entsprechend - und das sollte immer klappen, weil 0 festgelegt ist als FALSE, während True sich in vielen Formen äussern kann.

Zitat von Gruber_Hans_12345:

Zitat von Muetze1:

Sehr schön - und Dateien mit dem Namen werden denn gleich mit ausgeblendet. Durch NFS Clients etc ist nicht gleich gesagt, dass es bei allen unter Windows benutzten Dateisystemen dies nicht existieren kann...

wie wäre es wenn du statt dem kommentar einfach ne lösung präsentieren würdest dafür?

Wozu? Wenn man selber Dinge findet versteht man sie meist besser als alles vorgesetzt zu bekommen und zu kopieren. Bei solchen wirklich banalen Dingen mache ich dies auch nicht - bei umfangreicheren bzw. schweren Dingen ist posten von Code selbstverständlich. Ich will hier nicht den Souffleur spielen sondern den Leuten hier eher das Fischen beibringen...

[capo]

Nun verstehe ich es, danke für die tolle Erklärung.
capo

Danke nochmal an alle