如何迭代到TTabSheet中的组件

Question

我试图在TTabsheet中的所有组件之间迭代。问题是，在这个选项卡中只有一个备忘录和一个编辑，但是我的代码在所有形式的组件之间迭代。我错过了什么？

var i : integer;
begin
with PageControl1.ActivePage do 
 for i := 0 to componentcount-1 do
   begin
   // componentcount should be 2, but actually is 95
   components[i].doSomething;
   end;
end;

Answer 1

我有这样的情况，单击按钮会导致代码遍历页控件上的所有控件，使用组件数组。稍后，我将其更改为以下内容，使用给定表表的controls数组。

procedure TShowDocsByRank.CleanBtnClick(Sender: TObject);
var
 i: integer;

begin
 for i:= 0 to tabsheet1.controlcount - 1 do
  if tabsheet1.controls[i] is TLabeledEdit
   then TLabeledEdit (tabsheet1.controls[i]).text:= ''
  else if tabsheet1.controls[i] is TComboBox
   then TComboBox (tabsheet1.controls[i]).text:= '-';
end;

Answer 2

也许“with”可能会对此有所帮助。您无法真正知道“componentcount”的返回值是什么(甚至可能返回表单本身的组件数？)。