[comp.lang.pascal] TP 6.0 Bug with Find First

Robert_Salesas@mindlink.bc.ca (Robert Salesas) (04/29/91)

He he!  I just asked a similiar question.  Although the Borland documentation
isn't too clear, "normal" files are returned _AS WELL_ as those you specify.
So if you asked for Directories, you'd get directories and all normal files.
Notice though, that normal files inlcude READONLY and ARCHIVE.

Rob
--
\--------------------------------------------------------------------/
\ Robert Salesas             + Usenet: Robert_Salesas@MINDLINK.bc.ca /
\ Eschalon Development Inc.  + CIS:    76625,1320    BYTE:  newdawn  /
\--------------------------------------------------------------------/

shephard@newsserver.sfu.ca (Gordon Shephard) (04/30/91)

The example program below lists all Files instead of just directories.
Bug?  Or am I missing something obvious.  (Files are found with an
attribute not equal to $10, E.G. $21.  I guess this could also be a bug
with FindNext.)

{ Example for FindFirst and FindNext }

uses Dos,Crt;
var
  DirInfo: SearchRec;
begin
  ClrScr;
  FindFirst('*.*', Directory, DirInfo);
  while DosError = 0 do
  begin
    WriteLn(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.



-- 
-----------------------------------------------------------------------
| Gordon Harry Shephard         | Distributed Computing Support Group | 
| Academic Computing Services   | Shephard@ucs.sfu.ca                 | 
| Simon Fraser University       | USERGHS@SFU.BITNET                  |