大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

清空所有EDIT的text

Posted on 2012-04-28 11:21  大悟还俗_2  阅读(144)  评论(0编辑  收藏  举报
var
  i:Integer;
begin
  for i:=0 to componentcount-1 do begin
    if (components[i] is TEDIT) then  begin
      TEDIT(components[i]).text:='';
    end;
  end; 
end;