我要把这些edit的text都设为空
比如
( (zknumber.Text='') and (Number.Text='') and ( NameEdit.Text='') and ( people.Text='')
and (zzmm.Text='') and (old.Text='') and (love.Text='') and (Address.Text='') and
(idcard.Text='')and ( score.Text='') and ( tel_number.text='') and ( moble.Text='') and
(post_number.Text='') and ( scl_graduate.Text='') and (graduate_school.Text='' )and
(g_specialty.Text='') and (Ntype.Text='') and ( father_name.Text='') and (father_duty.Text='' )and
(f_tel.Text='') and (mother_name.Text='') and ( mother_duty.Text='' )and
(linkman_name.Text='') and(specialty.Text='' )
请问有没有更简便的方法将他们设为空?????????????
比如
( (zknumber.Text='') and (Number.Text='') and ( NameEdit.Text='') and ( people.Text='')
and (zzmm.Text='') and (old.Text='') and (love.Text='') and (Address.Text='') and
(idcard.Text='')and ( score.Text='') and ( tel_number.text='') and ( moble.Text='') and
(post_number.Text='') and ( scl_graduate.Text='') and (graduate_school.Text='' )and
(g_specialty.Text='') and (Ntype.Text='') and ( father_name.Text='') and (father_duty.Text='' )and
(f_tel.Text='') and (mother_name.Text='') and ( mother_duty.Text='' )and
(linkman_name.Text='') and(specialty.Text='' )
请问有没有更简便的方法将他们设为空?????????????
解决方案 »
- 一段Delphi代码 大家帮我看下有问题吗?请指正
- 无法给作为形参的动态一维数组设置上限?
- adoquery.recno是什么属性?
- 打包问题,盼各位大虾指点
- 在线等待,关于消息:form上放一图片,怎样点住图片移动form,谢谢!
- 请教;关于指针的概念性问题很混淆。送分
- 请教delphi的什么版本较稳定且好用,在哪里下载??谢谢!
- 数据库中导出的文本文件如何转换为二进制文件,及二进制文件转换为文本文件
- 我的IE被某些网站封了主页都是他们的主页,不能更改回我原来的主页,运行项也不见了,怎么办?MS IE字样也变成他们的网址了!
- 关于连接本地数据库的菜鸟问题........送分
- 好长时间没提问,分太多,看到大家几分几分的拿,着急,尽最大能力散分!
- ■远程抓屏(技术交流)■
for i:= 0 to Form1.ComponentCounts - 1 do
begin
if Form1.Components[i] is TEdit then
if (Form1.Components[i] as TEdit).Tag=1 then
(Form1.Components[i] as TEdit).Text := '';
end;
if Form1.Controls[I] is TEdit then
(Form1.Controls[I] as TEdit).Text:='';