REDIM action


Function
Resizes (number of rows) the local structured variable or object of the Structured variable type.
Declaration
 REDIM rec [newDim]
Parameters
recoutName of the local structured variable or object of the Structured variable type or type ALIAS.
newDiminExpression of the Int type - new size (number of rows).
Description
The resizing (number of rows) does not bring the loss of values in items which existed before an action (enlarging of an array).
It holds for value of the local structured variable that new items are initialized on invalid value and minimal number of rows (newDim) is 0 (zero).
If it happens that there is a deficiency of memory during the change of structured variable size, the action will cause the calling of a script proceeding and will generate the error ERR_RANGE_ERROR with the description. The value of variable will not be changed.

It holds for value of object the Structured variable type that all attributes of new items are configured as Inherited (start value, limits, ...). The minimal size is 1.
The resize of the object Structured variable is intervention to the configuration (it is done in the D2000 Server process and its result is saved into configuration database). A time of change of object configuration is a present time.
Action REDIM failed (because of abort when the script is executed) when the object is opened to be edited (when the script is aborted the variable _ERR_NR_TRANS_EX, that characterized the error in detail, is set).

Example 1
Copying values from the object SV.Structure into the local variable of the RECORD type.

 
; variable declaration
 RECORD NOALIAS (SD.RecordDef) _locRec
 
 ; resizing the array (number of rows)
 REDIM _locRec[SV.Structure\DIM] 
 
 ; copying a value
 SET _locRec WITH SV.Structure 
Example 2
Resizing of the object Structured variable:
 
 ; declaration of type ALIAS
 ALIAS (SD._System_Redundancy) _aList
 
 ; pointing it on object SV._System_Redundancy
 SET _aList  AS SV._System_Redundancy
 
 ; resize to 10
 REDIM _aList[10]
 
 ;other way - resize to 5
 REDIM SV._System_Redundancy[5] 

Related pages:

Napíšte komentár