小问题 By-Combol(24分)

  • 主题发起人 主题发起人 combol
  • 开始时间 开始时间
C

combol

Unregistered / Unconfirmed
GUEST, unregistred user!
在一输入界面中须进行输入完整性的检查
 
 如Edit1.text<>''
在Tinput.SavebuttonClick中加If .. then
判断,
 If edit1.text='' then
begin

application.messagebox('Error',Error',16);
edit1.SetFocus;
end;
运行后未输入Edit1的值直接Save,弹处窗口,Click[确定]后
Edit1获得焦点,但同一界面其他已输入未保存的数据都Clear.
全部需要重新输入,
Why? Help--------->>>>
 
你在后面一定还有其他过程。
改一下
 If edit1.text='' then
begin

application.messagebox('Error',Error',16);
edit1.SetFocus;
Exit ;
//<---退出过程。
end;
 
问题好象不在你贴出的代码中,
不知你说的其它的"未保存的数据"是什么意思?
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部