博图PLC程序中字符串查重

//先说明你定义根本不是字符串。
//所以判断是否ResultDate[x].history是否未初始化，即判断:
//ResultDate[x].history[0]~ResultDate[x].history[35]是否都是0x00。
//下面FC块的代码，接口定义见截图：
//循环检查各ResultDate[i].history是否初始化
FOR #Index1 := 0 TO 10 DO
    #Initiated[#Index1] := FALSE;
    FOR #Index2 := 0 TO 35 DO
        IF "数据块_1".ResultDate[#Index1].history[#Index2] <> '' THEN
            //有不等于NULL，表示初始化了
            #Initiated[#Index1] := TRUE;
            EXIT;
        END_IF;
    END_FOR;
END_FOR;

//循环检查ResultDate[i].history已初始化的，是否有重复
FOR #Index1 := 0 TO 9 DO
    #Result := FALSE;   //假设没有重复
    IF #Initiated[#Index1] THEN             //找到一个history初始化的ResultDate
        FOR #Index2 := #Index1 + 1 TO 10 DO //继续找下一个history初始化的ResultDate
            IF #Initiated[#Index2] THEN     //找到下一个history初始化的ResultDate
                #Result := TRUE;            //先假设两个history相同
                FOR #Index3 := 0 TO 35 DO   //循环比较两个history是否存在不同
                    IF "数据块_1".ResultDate[#Index1].history[#Index3] <> "数据块_1".ResultDate[#Index2].history[#Index3] THEN
                        #Result := FALSE;   //任意字符不同表示不同
                        EXIT;               //结果不同，不再继续比较两个history
                    END_IF;
                END_FOR;
                IF #Result THEN
                    RETURN;                 //找到相同的两个history结束
                END_IF;
            END_IF;
        END_FOR;
    END_IF;
END_FOR;