[TolAlik]

Сообщение от Booo

Код:

       Caption := 'TabSheet #' + IntToStr(i);
    end;

  for I := 0 to Page.PageCount - 1 do
 if Page.Pages [i].Caption ='TabSheet #' then
  showmessage('Такая вкладка существует')
end;

Не выводит сообщение такая вкладка существует!!

Ты допустил ошибку в двух местах. в имени закладки присваиваешь I значение которой еще не заданно и пытаешься сравнить с незаконченным условием

Код:

Page := TPageControl.Create(Self);
    Page.Parent := Self;
    for s:= 0 to 0 do
    with TTabSheet.Create(Self) do
    begin
       PageControl := Page;
       Caption := 'TabSheet #' + IntToStr(s);
    end;

  for I := 0 to Page.PageCount - 1 do
 if Page.Pages [i].Caption ='TabSheet #'+IntToStr(i) then
  showmessage('Такая вкладка существует')