25 lines
476 B
Plaintext
25 lines
476 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION CleanBoolArray : BOOL
|
|
VAR_INPUT
|
|
i_ArrayPtr : DWORD ;
|
|
i_UpBound : INT ;
|
|
END_VAR
|
|
VAR
|
|
i : INT ;
|
|
mArrayPointer : POINTER TO BOOL ;
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_UpBound>0 AND i_UpBound<=191 THEN
|
|
FOR i:=0 TO i_UpBound DO
|
|
mArrayPointer := i_ArrayPtr + i ;
|
|
mArrayPointer^ :=FALSE ;
|
|
END_FOR;
|
|
CleanBoolArray := TRUE ;
|
|
ELSE
|
|
CleanBoolArray := FALSE ;
|
|
END_IF
|
|
END_FUNCTION
|