注册 登录
编程论坛 Delphi论坛

什么意思?

qpfmates 发布于 2008-10-10 20:05, 946 次点击
i:integer;
begin
  for i:=1 to componentcount-1 do
    if components[i] is tedit then
    (components[i] as tedit).Text :='';
  close;
end;
1 回复
#2
ruanjian21102008-10-10 22:30
用一个循环来给所有的edit控件赋同一个值。
i:integer;
begin
  for i:=1 to componentcount-1 do //for循环,componentcount-1 代表控件总数
    if components[i] is tedit then //判断是Edit控件就开始循环赋同一个值
    (components[i] as tedit).Text :='';
  close;
end;
1