1500PLC 遍历数组查重

//另设一个数组RedStatus Array[0..9] of Usint，标记重复状态, 0-表示无重复，非0-表示重复分组号。
FOR #i := 0 TO 9 DO
    "DBx".RedStatus[#i] := 0;
END_FOR;
#r := 0;     //重复分组号
FOR #i := 0 TO 8 DO
    IF "DBx".RedStatus[#i] = 0 THEN
        FOR #j := #i+1 TO 9 DO
            IF ("DBx".数组A[#i] = "DBx".数组A[#j]) AND ("DBx".RedStatus[#j] = 0) THEN
                IF "DBx".RedStatus[#i] = 0 THEN
                    #r := #r +1;    //有新一组重复
                    "DBx".RedStatus[#i] := #r;
                END_IF;
                "DBx".RedStatus[#j] := "DBx".RedStatus[#i];
            END_IF;
        END_FOR;
    END_IF;
END_FOR;