Thanks Theo, Your a life saver! I know it would be something simple, but just didn't know where to look.
Thanks again Paul > ----- Original Message ----- > From: "Theo Bebekis" <[EMAIL PROTECTED]> > To: [email protected] > Subject: Re: [delphi-en] Reading Pardox NET DIR setting Programmatically > Date: Fri, 13 Jul 2007 12:55:58 +0300 > > > O/H Paul Bennett έγραψε: > > Hi all, > > > > I need to be able to read the Paradox NET DIR setting from inside one > > of the applications I am working on. I've found the required code by > > searching the BDE32.HLP file. However inside that routine is a call to > > a routine called Check. I have not been able to discover what this > > routine does or how to implement it. > > > > I have modified the code to use IF statements to replace the Check > > calls as below: > > > > If DbiOpenCfgInfoList(nil, dbiREADONLY, cfgPERSISTENT, > > StrPCopy(Temp, Path), hCur) = DBIERR_NONE Then > > If DbiSetToBegin(hCur) = DBIERR_NONE Then > > repeat > > rslt := DbiGetNextRecord(hCur, dbiNOLOCK, @Config, nil); > > if rslt = DBIERR_NONE then > > begin > > if StrPas(Config.szNodeName) = Option then > > Result := Config.szValue; > > if Count <> nil then > > Inc(Count^); > > end > > else > > if rslt <> DBIERR_EOF then > > // But what do I do with the line below???? > > Check(rslt); > > until rslt <> DBIERR_NONE; > > the problem is that I don't know what Check is checking! or what > > result it returns!! > > > > > > Any Ideas gratefully received. > > > > Paul > > > Paul > > I think it's the > procedure Check(Status: DBIResult); > from the DBTables.pas > > -- > Regards > Theo > > ------------------------ > Theo Bebekis > Thessaloniki, Greece > ------------------------ > Greek_Delphi_Prog : a Delphi Programming mailing list in Greek at > http://groups.yahoo.com/group/Greek_Delphi_Prog > > CSharpDotNetGreek : A C# and .Net mailing list in Greek language at > http://groups.yahoo.com/group/CSharpDotNetGreek > > atla_custom : a Unisoft Atlantis Customization mailing list at > http://groups.yahoo.com/group/atla_custom > ------------------------ > > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: [EMAIL PROTECTED] > Yahoo! Groups Links > > > > Experience is something you don't get until just after you need it. -- _______________________________________________ Surf the Web in a faster, safer and easier way: Download Opera 9 at http://www.opera.com Powered by Outblaze ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/delphi-en/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
