Преглед на файлове

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

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;