22 May
2010
22 May
'10
1:02 a.m.
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