function check(): boolean;
begin
result:=true;
if length(frmMain.LE_No.Text)=0 then
begin
result:=false;
showmessage('项目填写不完整！');
exit;
end;
if length(frmMain.LE_name.Text)=0 then
begin
result:=false;
showmessage('项目填写不完整！');
exit;
end;
if length(frmMain.LE_StartTime.Text)=0 then
begin
result:=false;
showmessage('项目填写不完整！');
exit;
end;
//相似代码
end;
[DCC Hint] u_main.pas(84): H2077 Value assigned to 'check' never used

@_@
囧
@_@
另外吐槽一下楼主你真的很喜欢打字啊，明明就是三四行代码还非得整那么长。。。

哈哈，，同意楼上。。直说说你定义的这个函数没有调用而已。。

这个WARNING 没有关系 不用就不用