(**************************找最大值***************************)
FOR x:= 1 TO i_ValidSystemNO BY 1 DO
FOR z:= 1 TO 49 BY 1 DO
IF "DB_时间表C".TimeTableSystem[x].HourMinute[z]>="DB_时间表C".TimeTableSystem[x].HourMinute[z+1] THEN
HourMinuteValue:="DB_时间表C".TimeTableSystem[x].HourMinute[z];
ModeNoValue:="DB_时间表C".TimeTableSystem[x].ModeNO[z];
"DB_时间表C".TimeTableSystem[x].HourMinute[z]:="DB_时间表C".TimeTableSystem[x].HourMinute[z+1];
"DB_时间表C".TimeTableSystem[x].ModeNO[z]:="DB_时间表C".TimeTableSystem[x].ModeNO[z+1];
"DB_时间表C".TimeTableSystem[x].HourMinute[z+1]:=HourMinuteValue;
"DB_时间表C".TimeTableSystem[x].ModeNO[z+1]:=ModeNoValue;
END_IF;
END_FOR;
END_FOR;
这不是排序,只是找最大值,而且只是找XZ二维数组的最大值,Y循环是多余的。