From 41ef4c242e2a5d9169df59033f4f5354507bfd21 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Fri, 9 Jan 2026 15:53:58 +0800
Subject: [PATCH] ~

---
 打卷检验管理/U_MJManageNewFDNew.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 3e9ca13..c94a947 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -620,7 +620,7 @@ begin
   Th := LoadLibrary(Pchar(trim(DllName)));            
   if Th > 0 then
   begin
-    try
+    try                                                 
       Tp := GetProcAddress(Th, 'CommOpen');
       if Tp <> nil then
       begin
@@ -1684,6 +1684,12 @@ begin
     exit;
   end;
 
+   if (strtofloatdef(trim(MJLen.Text), 0) <= 0)  then
+  begin
+    application.MessageBox('����С���㣡', '��ʾ��Ϣ', 0);
+    exit;
+  end;
+  
   if Trim(FAPID) = '' then
     Exit;