[friz]

что-то мне не нравиться вот эта строчка :

Код:

for i:=0 to pagecontrol.pagecount -1 do
if pagecontrol.pages [i].caption <> s then

т.е. если заголовок не равен нику то мы сразу же создаем новую вкладку?
Это неправильно! Надо что-нить такое:

Код:

for i:=0 to pagecontrol.pagecount -1 do
if pagecontrol.pages [i].caption = s then num:=num+1;
if num=0 then ....

num переменная которая хранит кол. вкладок с именем s , если таких нету то создаем ее