소스 검색

修改排序,保证编号为空的节点排序到最后

MaiXinRong 7 년 전
부모
커밋
2e1bbbc2c2
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      Units/MCacheTree.pas

+ 1 - 1
Units/MCacheTree.pas

@@ -675,7 +675,7 @@ begin
   begin
     sCodeID2 := ConvertDigitCode(Node.Code, 3, '-');
     sB_CodeID2 := ConvertDigitCode(Node.B_Code, 4, '-');
-    if sCodeID < sCodeID2 then
+    if (sCodeID <> '') and (sCodeID < sCodeID2) then
     begin
       Result := Node;
       Break;