~
This commit is contained in:
parent
5b402a532e
commit
41ef4c242e
|
|
@ -1684,6 +1684,12 @@ begin
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
if (strtofloatdef(trim(MJLen.Text), 0) <= 0) then
|
||||||
|
begin
|
||||||
|
application.MessageBox('长度小于零!', '提示信息', 0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
if Trim(FAPID) = '' then
|
if Trim(FAPID) = '' then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user