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;