Hello.
The last line of function check_configfile(fn:string; var
foundfn:string):boolean;
should be something like this:
...
else
if CfgFileExists(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+fn)
then
foundfn:=IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+fn
else
check_configfile:=false;
--
Sent from: http://free-pascal-general.1045716.n5.nabble.com/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
