Delphi清空控件有关问题

Delphi清空控件问题
清空PageControl页上所有控件的值

var
  i:Integer;
begin
  begin
    if rztbsht.Controls[i].ClassType = TcxTextEdit then
    begin
      (rztbsht.Controls[i] as TcxTextEdit).Text := '';
    end;
    if rztbsht.Controls[i].ClassType = TcxComboBox then
    begin
      (rztbsht.Controls[i] as TcxComboBox).ItemIndex := -1;
    end;
    if rztbsht.Controls[i].ClassType = TcxMemo then
    begin
      (rztbsht.Controls[i] as TcxMemo).Text:='';
    end;
  end;

end;

但是清空不了。是不是我写法有问题？
[解决办法]
试下这样：

var
  i:Integer;
begin
  for i:= 0 to rztbsht.ControlCount - 1 do
  begin
    if rztbsht.Controls[i].ClassType = TcxTextEdit then
    begin
      (rztbsht.Controls[i] as TcxTextEdit).Text := '';
    end;
    if rztbsht.Controls[i].ClassType = TcxComboBox then
    begin
      (rztbsht.Controls[i] as TcxComboBox).ItemIndex := -1;
      (rztbsht.Controls[i] as TcxComboBox).Text := -1;
    end;
    if rztbsht.Controls[i].ClassType = TcxMemo then
    begin
      (rztbsht.Controls[i] as TcxMemo).Text:='';
    end;
  end;
end;

查看更多 下一篇