RECORD (SD.ArchData) _src
RECORD (SD.ArchData) _dst
INT _idx
BEGIN
; naplnenie zdrojovej štruktúry hodnotami od 1 do 10
REDIM _src[10]
_idx := 1
DO_LOOP
EXIT_LOOP _idx > _src\DIM
_src[_idx]^value := _idx
_idx := _idx + 1
END_LOOP
; nastavenie rozmeru cieľovej štruktúry
REDIM _dst[11]
; kopírovanie jedného riadku zo štruktúry _src do štruktúry _dst počínajúc štvrtým riadkom
; _dst[4] <-- _src[5]
COPYSTRUCT _dst, 4, _src[5]
; kopírovanie dvoch riadkov zo štruktúry _src do štruktúry _dst počínajúc tretím riadkom
; _dst[3] <-- _src[5]
; _dst[4] <-- _src[6]
COPYSTRUCT _dst, 3, _src[5], _src[6]
; kopírovanie všetkých riadkov štruktúry _src do štruktúry _dst počínajúc druhým riadkom
; _dst[2] <-- _src[1]
; _dst[3] <-- _src[2]
; _dst[4] <-- _src[3]
; ...
COPYSTRUCT _dst, 2, _src
END
Pridať komentár