SETCOLTIME _srcRec^DateTimeCol, _dstRec, _dstRecColIdx |
| _srcRec | in | Identifikátor stĺpca - zdrojový stĺpec štruktúry použitý pri získavaní časov. |
| _dstRec | out | Identifikátor lokálnej štruktúry - cieľová štruktúra použitá pri nastavovaní časov. |
| _dstRectColIdx | in | Identifikátor typu Int. |
Akcia nastaví každej hodnote v lokálnej štruktúre _dstRec v stĺpci s poradovým číslom _dstRecCol
(od 1 ...) čas vzniku hodnoty podľa hodnoty v príslušnom riadku v stĺpci _srcRec^DateTimeCol.
Štruktúry _dstRec a _srcRec musia mať rovnaký počet riadkov.
Akcia predstavuje náhradu nasledujúceho cyklu:
RECORD (SD.Def) _srcRec
RECORD (SD.Def) _dstRec
BEGIN
REDIM _srcRec[10]
REDIM _dstRec[10]
; činnosť akcie SETCOLTIME
IF _srcRec\DIM # _dstRec\DIM THEN
; chyba _ERR_RANGE_ERROR
END
ENDIF
INT _row
_row := 1
DO_LOOP
EXIT_LOOP _row > _srcRec\DIM
IF ! _srcRec[_row]^TimeCol\VLD THEN
; chyba
END
ENDIF
_dstRec[_row]^ValueCol := _dstRec[_row]^ValueCol TIME _srcRec[_row]^TimeCol
_row := _row + 1
END_LOOP
; koniec akcie
END |
SETCOLTIME _srcRec^TimeCol, _dstRec, 2 |