Group_DJD/D7DJqianjing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-02 17:23:05 +08:00
parent c864fdd11e
commit 23ae06159c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
检验管理/U_MJManageNewFDNew.pas
View File

@ -1631,9 +1631,9 @@ begin
Exit; Exit;
end; end;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) > 200) then if (strtofloatdef(trim(MJLen.Text), 0) > 400) then
begin begin
application.MessageBox('长度不能大于200！', '提示信息', 0); application.MessageBox('长度不能大于400！', '提示信息', 0);
exit; exit;
end; end;
if Trim(Edit6.Text) <> '' then if Trim(Edit6.Text) <> '' then
@ -2628,7 +2628,7 @@ begin
begin begin
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
end; end;
end; end;
end; end;
end; end;