diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas
index b5d55ff..f9976d4 100644
--- 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