识别负桩号提交遗漏

Units/UtilMethods.pas

@@ -665,8 +665,8 @@ function CheckPeg(const AStr: string): Boolean;
     Result := False;
     iPosK := GetPosition(AStr, 'K', 'k');
     iPosMinus := GetPosition(AStr, '-', '£­');
-    if (iPosK = 0) or (iPosMinus = 0) or (iPosMinus < iPosK) then Exit;
-    Result := TryStrToFloat(Copy(AStr, iPosK + 1, iPosMinus - iPosK - 1), fNum) and (fNum < 0);
+    if (iPosK = 0) or (iPosMinus = 0) or (iPosMinus <= iPosK) then Exit;
+    Result := TryStrToFloat(Copy(AStr, iPosK + 1, iPosMinus - iPosK - 1), fNum) and (fNum <= 0);
   end;
 
 begin