From: broersma.juda_ANTISPAM_@tiscali.nl   
      
   Op Thu, 9 Apr 2009 19:39:05 +0200 schreef "Jochen"   
   :   
      
   Just two comments...   
      
   >untested snippet   
   >   
   >- - -   
   >var sr: SearchRec;   
   >   
   >      findFirst('*.*',$3f,sr); {find everything}   
   For OT: $3f actually is AnyFile (bitwise ored: ReadOnly or Hidden or   
   Archive or Sysfile or Directory IIRC)   
   >      while DosError=0 do {no error? }   
   >      begin   
   >        if (sr.attr and $10)<>0 then { is SubDir}   
   >          if sr.name[1]<>'.' then {is not current(.) / up(..) }   
   This might actually fail?   
   I think even in plain old dos a dir might have a name like .dir   
   >            writeln(sr.name);   
   >        findNext(sr) {find next}   
   >      end;   
   >- - -   
   >   
   >greeetz   
   >jo   
      
   Bart   
   --   
   Bart Broersma   
   broersma.juda_ANTISPAM_@tiscali.nl   
   (ff _ANTISPAM_ wegpoetsen uit dit adres natuurlijk)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)