RECORD (SD.ArchDemo) _data
INT _value
INT _idx
TIME _bt
INT _retCode
_bt := %StrToTime("8:01:00 16-10-2003")
REDIM _data[60]
; assign any data
_idx := 1
_value := 100
DO_LOOP
EXIT_LOOP _idx > _data\DIM
_data[_idx]^value := _value TIME _bt
_idx := _idx + 1
_value := _value + 1
_bt := %AddTime(_bt, 1)
END_LOOP
Pridať komentár