[fpc-pascal] Weird DosError values

[Matthews]

Hello all.

I'm using a function and a procedure, both which deal with finding files in 
the same directory, and then either counting them, or reading them, but I'm 
getting some very weird values for DosError.  I'm using v1.0.10, and I 
continue to get a value of 183 from DosError in the function (which is in 
my unit), but a DosError value of 0 from the procedure inside the main 
file.  The code is below.
	
Does anybody know what DosError 183 means, and if so, can I avoid this in 
any way?

Thanks.

-Lukas M.

PS Does anybody have a more elegant solution to determine when there are no 
more files in a directory?  I had to use the workaround of duplicate 
filenames because DosError was always 0.

This is the setup:

var
     dir_in:string;
     dir_out:string;

Procedure Main;	
	begin
// Normally set from the command line, but dir_in and dir_out are always 
these values.
	        dir_in := 'C:\2dapad\in'; // This directory has 64 files in it 
(all 2DAs)
	        dir_out := 'C:\2dapad\pad';

                   num_files := NumberOfFiles(dir_in,'*.2da');
	        if num_files = 0 then EndProgram('There were no files.') // Just 
halts the program and writes a message on screen.
                   else if num_files = -1 then EndProgram('Unable to open ' 
+ dir_in)
                   else if num_files = -2 then EndProgram('DosError in ' + 
dir_in);
                   // Num_files always equals 1.
	        GetBatchFile;
	end;

Function NumberOfFiles(path,ext:string):longint;
// Searches through the passed directory (if one is given) for files of a 
particular extension.
// '' for ext = '*.*'
// Note: This is the function that does't work (the one in my unit)
      var
         i:longint;
         q:longint;
         curr,old:string;
         temp:TSearchRec;
         ex:string;
      begin
           i := 0;
           curr := GetCurrentDir;
           if (ext = '') OR (ReplaceChrStr(ext,'.','') = ext) then ex := '*.*'
           else ex := ext;
           if path <> '' then
              begin
                   GetShortName(path);
                   if SetCurrentDir(path) = FALSE then NumberOfFiles := -1; 
// If there's an error, exit soon.
              end;
           FindFirst(ex,anyfile,temp);
           q := DosError;
// Right here, this function ends, because DosError = 183.
           if q <> 0 then
              begin
                   writeln('DosError = ' + IntToStr(q));
                   repeat until readkey <> '';
                   NumberOfFiles := -2;
              end;
           inc(i);
           old := temp.name;
           FindNext(temp);
           q := DosError;
           if (q = 0) AND (temp.name <> old) then
              begin
                   inc(i);
                   old := '';
                   while ((old = '') OR (DosError = 0)) AND (temp.name <> 
old) do
                         begin
                              old := temp.Name;
                              FindNext(temp);
                              inc(i);
                         end;
              end;
           FindClose(temp);
           GetShortName(curr);
           if (path <> '') then SetCurrentDir(curr);
           NumberOfFiles := i;
      end;

// This the function in the main file, that does work.
// pads_skipped and pads_created are just global counters for number of 
files already dealth with.
// dir_out is also set by the user.
Procedure GetBatchFile;
      var
         f:tSearchRec;
         curr:string;
         i:integer;
         label batch_search;
      begin
           batch_search: // I know I'm bad...
           if name_in <> '' then last_file := ExtractFileName(name_in) else 
last_file := '';
           curr := GetCurrentDir;
           GetShortName(dir_in);
           if SetCurrentDir(dir_in) = FALSE then EndProgram('Error: Unable 
to change directory from ' + GetCurrentDir + ' to ' + dir_in);
           i := 0;
           FindFirst('*.2da',anyfile,f);
           i := DosError;
// Right here, and later, DosError is always 0.
           if i <> 0 then
              begin
                   Log('DosError = ' + IntToStr(i));
                   name_in := '??_BATCH_END';
                   FindClose(f);
                   GetShortName(curr);
                   SetCurrentDir(curr);
                   exit;
              end;
           i := 0;
           while (i < (pads_created + pads_skipped)) AND (DosError = 0) do 
// Keep going until a new file is found (the nth file in the list.)
                 begin
                      FindNext(f);
                      inc(i);
                 end;
           if (DosError <> 0) OR (last_file = f.Name) then
              begin
                   name_in := '??_BATCH_END';
                   FindClose(f);
                   GetShortName(curr);
                   SetCurrentDir(curr);
                   exit;
              end
           else
               begin
                    GetShortName(curr);
                    SetCurrentDir(curr);
                    name_in := dir_in + f.Name;
                    FindClose(f);
                    if dir_in[length(dir_in)] <> '\' then 
insert('\',name_in,length(dir_in)+1);
                    name_out := dir_out + 
ChangeFileExt(ExtractFileName(name_in),'.pad');
                    if dir_out[length(dir_out)] <> '\' then 
insert('\',name_out,length(dir_out)+1);
                    if (FileExists(name_out)) AND (overwrite = FALSE) then
                       begin
                            inc(pads_skipped);
                            Log('PAD for ' + ExtractFileName(name_in) + ' 
already exists - skipped.');
                            goto batch_search;
                       end;
               end;
      end;