PROCEDURE Proc1(RECORD NOALIAS () _arr)
INT _iHbj1
INT _iHbj2
INT _iHbj3
_iHbj1 := SD.ARR_INT_REAL\HBJ
_iHbj2 := %GetRecordStructHBJ(SV.Struktura\HBJ)
_iHbj3 := %GetRecordStructHBJ(_arr\HBJ)
; ....
; ....
; ....
REDIM _arr[_arr\DIM + 1]
END Proc1
BEGIN
RECORD NOALIAS (SD.ARR_INT_REAL) _arr1
; ....
; Nastavenie hodnoty lokálnej premennej _arr1 podľa hodnoty objektu
;
REDIM _arr1[2]
CALL Proc1(_arr1)
END
Pridať komentár