fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2006-07-12 12:24 UTC+0300 Chen Kedem <niki@actcom.co.il>

Browse Source
This commit is contained in:
Chen Kedem
2006-07-12 09:23:54 +00:00
parent 61321e4739
commit 577e90d607
3 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* harbour/source/vm/cmdarg.c
* harbour/source/vm/itemapi.c
* formatting
2006-07-12 12:24 UTC+0300 Chen Kedem <niki@actcom.co.il>
* doc/en/rddmisc.txt
* doc/en/rdddb.txt
! Fix the sample for AFIELDS()

8
harbour/doc/en/rdddb.txt
View File

@@ -455,9 +455,9 @@
* This function is Not CA-Clipper compliant
* $FILES$
* Library is rdd
* Header is Dbstruct.ch
* Header is dbstruct.ch
* $SEEALSO$
* AFIELDS(),DBSTRUCT()
* AFIELDS()*,DBSTRUCT()
* $END$
*/
@@ -1077,9 +1077,9 @@
* This function is CA-Clipper compliant
* $FILES$
* Library is rdd
* Header is DbStruct.ch
* Header is dbstruct.ch
* $SEEALSO$
* AFIELDS()
* AFIELDS()*
* $END$
*/

54
harbour/doc/en/rddmisc.txt
View File

@@ -17,7 +17,7 @@
/* $DOC$
* $FUNCNAME$
* AFIELDS()
* AFIELDS()*
* $CATEGORY$
* Database
* $ONELINER$
@@ -36,34 +36,58 @@
* <nFields> Number od fields in a database or work area
* $DESCRIPTION$
* This function will fill a series of arrays with field
* names,field types,field lenghts, and number of field
* names, field types, field lenghts, and number of field
* decimal positions for the currently selected or designed
* database. Each array parallels the different descriptors
* of a file's structure.The first array will consist of the
* names of the fields in the current work area.All other arrays
* of a file's structure. The first array will consist of the
* names of the fields in the current work area. All other arrays
* are optional and will be filled with the corrensponding data.
* This function will return zero if no parameters are specified
* or if no database is avaliable in the current work area.Otherwise,
* or if no database is avaliable in the current work area. Otherwise,
* the number of fields or the lenght of the shortest array argument,
* witchever is smaller, will be returned.
*
* AFIELDS() is a compatibility function, it is superseded by
* DBSTRUCT() which returns one multidimensional array.
*
* NOTE: The destination arrays must be initialized to a given size,
* usually FCOUNT(), before calling this function.
*
* $EXAMPLES$
* FUNCTION Main()
* LOCAL aNames:={},aTypes:={},aLens:={},aDecs:={},nFields:=0
*
* LOCAL aNames, aTypes, aLens, aDecs, nCount, nFields, i
* USE Test
*
* dbGoTop()
* nFields:=aFields(aNames,aTypes,aLens,aDecs)
* nCount := FCount()
* ? "Number of fields:", nCount
* PrintFields( nCount ) // Information for all fields
* PrintFields( 4 ) // Information for first 4 fields
* RETURN NIL
*
* ? "Number of fields", nFields
* FUNCTION PrintFields( nCount )
* LOCAL aNames, aTypes, aLens, aDecs, nFields, i
*
* RETURN NIL
* aNames := Array( nCount )
* aTypes := Array( nCount )
* aLens := Array( nCount )
* aDecs := Array( nCount )
* nFields := aFields( aNames, aTypes, aLens, aDecs )
*
* ? "Number of items :", nFields
* FOR i := 1 TO nFields
* ? i, PadR( aNames[ i ], 12 ), aTypes[ i ]
* ?? aLens[ i ], aDecs[ i ]
* NEXT
* ?
* RETURN NIL
* $STATUS$
* R
* $COMPLIANCE$
* AFIELDS() is fully CA-Clipper compliant.
* $FILES$
* Library is rdd
* $SEEALSO$
* DBSTRUCT()
* $END$
*/
@@ -392,7 +416,7 @@
* FIELDPUT(<nField>, <expAssign>) --> ValueAssigned
* $ARGUMENTS$
* <nField> The field numeric position
*
*
* <expAssign> Expression to be assigned to the specified field
* $RETURNS$
* <ValueAssigned> Any expression
@@ -494,7 +518,7 @@
* $CATEGORY$
* Database
* $ONELINER$
* Return the length of a database file header
* Return the length of a database file header
* $SYNTAX$
* HEADER() --> nBytes
* $RETURNS$
@@ -701,7 +725,7 @@
* $TESTS$
* $STATUS$
* R
* $COMPLIANCE$
* $COMPLIANCE$
* This function is Ca-Clipper compliant
* $FILES$
* Library is rdd
@@ -733,7 +757,7 @@
* DBGOTOP()
* RECSIZE() // Returns 1
* DBGOTO(50)
* RECSIZE()
* RECSIZE()
* $TESTS$
* $STATUS$
* R