~

2025-12-02 17:23:05 +08:00 · 2025-12-02 17:23:05 +08:00 · 23ae06159c
commit 23ae06159c
parent c864fdd11e
1 changed files with 3 additions and 3 deletions
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@ -1631,9 +1631,9 @@ begin
      Exit;
    end;
  end;
-  if (strtofloatdef(trim(MJLen.Text), 0) > 200) then
+  if (strtofloatdef(trim(MJLen.Text), 0) > 400) then
  begin
-    application.MessageBox('长度不能大于200！', '提示信息', 0);
+    application.MessageBox('长度不能大于400！', '提示信息', 0);
    exit;
  end;
  if Trim(Edit6.Text) <> '' then
@ -2628,7 +2628,7 @@ begin
      begin
        TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
      end;
-    end;
+    end;                                   
  end;
 end;