
Click above to get retro games delivered to your door ever month!
X-Hacker.org- SuperLib 3.50 - function progeval()
[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
FUNCTION PROGEVAL()
Short:
------
PROGEVAL() Perform a Database DBEVAL() with a progress box
Returns:
--------
Nil
Syntax:
-------
PROGEVAL(bBlock,expCondit,[cMessage],[bMessage],[lPause])
Description:
------------
Pops up a progress bar box with PROGON().
Performs a DBEVAL() using <bBlock> as the first
parameter, and <expCondit> as the FOR condition. (can be
passed as a codeblock or a string).
[cMessage] is an optional box title for the progress
box
[bMessage] is a codeblock which returns a string
which will be displayed on the bottom inside line of the progress
box for each record processed.
[lPause] if True will pause before removing the box
with PROGOFF()- default is False.
Examples:
---------
// here is a counting example
nCount := 0
nScanned := 0
bDisplay := {||alltrim(str(nCount))+" matches of "+;
alltrim(str(nScanned++))+" scanned"}
ProgEval({||++nCount},"[S]$LNAME","Counting",bDisplay,.t.)
// OR
ProgEval({||++nCount},{||"S"$LNAME},"Counting",bDisplay,.t.)
Notes:
-------
Look up on DBEVAL() and note that this function is
the same, except it uses only the first two parameters.
Source:
-------
S_PROG.PRG
Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson