检验

2026-10-17 17:28:05 +08:00 · 2026-10-17 17:28:05 +08:00 · bd6327d636
commit bd6327d636
parent bc39968fb1
1 changed files with 5 additions and 0 deletions
--- a/E03梭织坯布检验/U_TatMachInsp.pas
+++ b/E03梭织坯布检验/U_TatMachInsp.pas
@ -1773,6 +1773,11 @@ begin
      /////////////////////////           保存长度         /////////////////////////
      MInputLen := RoundFloat(StrToFloatdef(trim(InputLen.Text), 0), 1);

+      // 码表长度未连码表手填时，提交同样按码表进位逻辑保留一位小数
+      if Trim(code_table_length.Text) <> '' then
+        code_table_length.Text :=
+          FormatFloat('0.#', RoundUpToHalf(RoundFloat(StrToFloatdef(Trim(code_table_length.Text), 0), 1)));
+
      // 勾选 edtMax 时：取录入长度与码表长度中的较大值参与换算
      if Trim(edtMax.Text) = '√' then
      begin