Ver código fonte

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

MaiXinRong 7 anos atrás
pai
commit
2e1bbbc2c2
1 arquivos alterados com 1 adições e 1 exclusões
  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;