Group_99/D10szGerun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验

Browse Source
This commit is contained in:
funa 2026-10-17 17:28:05 +08:00
parent bc39968fb1
commit bd6327d636
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -1773,6 +1773,11 @@ begin
///////////////////////// 保存长度 ///////////////////////// ///////////////////////// 保存长度 /////////////////////////
MInputLen := RoundFloat(StrToFloatdef(trim(InputLen.Text), 0), 1); 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 时：取录入长度与码表长度中的较大值参与换算 // 勾选 edtMax 时：取录入长度与码表长度中的较大值参与换算
if Trim(edtMax.Text) = '√' then if Trim(edtMax.Text) = '√' then
begin begin