Seltsamkeit bei FindFirst, FindNext

[scp]

Probiers mal so:

Delphi-Quellcode:

var i:integer; attribs:tSearchRecord; pfad:string; 
begin 
  // anderer Code 
  i:=findfirst(pfad,faAnyFile,attribs); // Verzeichnisse suchen 
  while (i=0) and (fm.aTest.tag=1) do begin // fm.aTest.tag=0 bedeutet Abbruch 
    if ((attribs.name<>'.') and (attribs.name<>'..') and ((attribs.attr and faDirectory) <> 0)) then begin 
      application.processMessages; 
      slDirDirs.Add(pfad+attribs.Name+'\'); inc(cDirs); // Verzeichnis in StringList speichern 
    end; 
    i:=findnext(attribs) 
  end; 
  findclose(attribs);

Wie du darauf kommst die $10 zu verwenden, will ich erst gar nicht wissen, es ist üblich die vordefinierten Konstanten zu verwenden.
Desweiteren werden erst alle Dateien (faAnyFile) gefunden und nur wenn faDirectory in den Attributen vorkommt wird die Datei hinzugefügt.