findfiles syntax

22 May 2010

      Hello!

I'm trying to implement a procedure and a function involving
findfiles, which, afaik, can do path search.

One thing at a time. First is the function. A sample would be

--snip--
program FindFilesTest;

uses GPC, FileUtils;

type
  alphafile=text;
var
  nameoffile: string;
  filename: alphafile;
const
  mydir='/usr/local/';

function aopenin(var a:alphafile):boolean;
begin if ioresult=0 then
assign(a,trim(nameoffile));
findfiles(mydir,a,false,reset,nil);
aopenin:=ioresult=0;
end;

begin
WriteLn ('Enter file name to type: ');
ReadLn (nameoffile);
if aopenin(alphafile) then
 WriteLn(nameoffile)
else
 Writeln('sorry, search failed');
end.

--snip--

The compiler bites me back saying:

  syntax error before reset
  extra comma

Beats my why.

Thanks in advance,

-- 
Luis Rivera
O< http://www.asciiribbon.org/ campaign