~

打卷检验管理/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;