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
<*> 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/
