var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
if Controls[I] is TEdit then (Controls[I] as TEdit).Text := '';
end;
I: Integer;
begin
for I := 0 to ControlCount - 1 do
if Controls[I] is TEdit then (Controls[I] as TEdit).Text := '';
end;
解决方案 »
- 关于delphi中图片的些许问题
- ??? 对oracle 试图操作会不会影响原系统性能??
- DBGridEH里镶嵌了CheckBox
- QQ群:4281029,VB、DELPHI学习群,欢迎加入!!
- 我现在需要像银行那样的打印存折的册子,不知道怎么打。
- 请问:如何把不同的内容同时向不同的三张数据表写入数据??
- 各位师兄:哪里可以下载讲Delphi6多层结构的教材?很急!!!!
- 请问诸位大虾:“从中间层的方法中返回一个结果集,用哪种方法比较好?”
- 一个奇怪的问题?我是没有头绪,有谁能解?
- 在delphi中这么截取‘ab cd‘中的空格为一个阿斯科码。
- 关于远程拨号连接SQLServer问题(最好发个例子给本人,不慎感激)
- 请问如何在设计时建立控件数组?
var I: Integer;
begin
for I:=Low(Edits) to High(Edits) do
if Assigned(Edits[I]) then
Edits[I].Text:='';
end;//demo
procedure Demo;
begin
ClearEditText([Edit1, Edit2, Edit4, Edit8);
end;