摘要:
窗体上有几个EDIT,当然对应着几个LABEL,判断当EDIT为空时,提示必须输入。 代码简单 procedure JudgeNull(ALabe: TLabel; AEdit: TEdit); begin if Trim(AEdit.Text) = '' then begin ShowMessagesl(ALabe.Caption + '不能为空'); ... 阅读全文
posted @ 2005-03-14 17:22 伯乐共勉 阅读(752) 评论(0) 推荐(0) 编辑