再问两个小问题。

[cultra]

1）如何中断函数或过程，马上返回呢？ 用EXIT，QUIT，还是HALT？一下 忘了。。。

2）用过EXPRESS EDITORS的朋友能否告知如何校验DxDateEdit中的输入，我用Datevalidate，怎么都说是错的输入？

[li_zhifu]

Exit

[cultra]

为什么编译出错？
function Tform1.CheckBlank():Boolean;
begin
if affairCB.Text='请选择' then begin
application.MessageBox('事由选项必须填写！', '提示信息', MB_OK + MB_ICONWARNING);
Result:=False;
Exit;
end;

[cultra]

在EXIT那里，说不能编译这个PAS文件？

[kevin_gao]

exit

表面看是没错。错误提示什么？

[cultra]

function Tform1.CheckBlank():Boolean;
begin
if affairCB.Text='请选择' then begin
application.MessageBox('事由选项必须填写！', '提示信息', MB_OK + MB_ICONWARNING);
Result:=False;
Exit;
end;

if DE1.=False then begin
application.MessageBox('开始日期输入有错误，请重新输入！', '提示信息', MB_OK + MB_ICONWARNING);
Result:=False;
Exit;
end;
//if overday_checked.Checked=False then
end;

[Fatal Error] kqcx.dpr(6): Could not compile used unit 'mainform.pas'

这个函数我设置成PRIVATE型的。

[cultra]

谢谢Focus(老鱼)，
我是想检测到第一项出错后，立即停止下面的检测，请问如何实现呢？我想加一个EXIT的目的就是这样的。

[cultra]

哈哈。谢谢。大不了，我用GOTO了。

鱼哥，我的QQ：7404134，能交个朋友吗？