如 EDIT1组件的 clear 方法怎么用？

是EDIT1。clear； 吗？

是，這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do
  begin
    if controls[i] is Tedit  then
    tedit(controls[i]).Clear;
  end;
end;

[[italic] 本帖最后由 sky_yang_sky 于 2007-12-26 09:26 编辑 [/italic]]

controlcount - 1

 减1是什么意思?

controlcount是什么意思啊？

controlcount是当前窗口的控件数量

哦 谢谢

哈哈，这个用法太牛了！我之前的做法都是逐个清除的，想不到可以这么简单！

顶！