激活PageControl特定的页

Question

动态在PageControl创建了不确定的页数，
在创建页时同时给每页的tag属性赋相应的值，问题：
如何查找PageControl里有无tag=100的页，
如果有将其激活，否则新建页，并设定该页tag=100。

Answer 1

var
    i:integer;
begin
  for i:=0 to pgc1.PageCount -1 do
    if pgc1.Pages[i].Tag=100 then
      begin
      pgc1.ActivePageIndex:=i;
      exit;
      end;
end;

Answer 2

var
  a: TTabSheet;
  Found: Boolean;
begin
 //先查找
  Found := False;
  for I := 0 to PageControl1.PageCount - 1 do
  begin
    a := PageControl1.Pages[I];
    if a.Tag = 100 then
      Found := True;
  end;
  if not Found then
  begin
  a := TTabSheet.Create(PageControl1);
  a.PageControl := PageControl1;
  a.Caption := 'aaaaa';
  a.tag := 100;
  end;
end;这样就可以创建一个新的page了