[Evgen_Balbes]

Здравствуйте. Подскажите пожалуйста как реализовать вот такую заморочку: При создание новой вкладки ,в компоненте PageСontrol,нужно чтобы в ярлыке формировалась текущая дата( год\месяц\дата) или случайное 5-ти значное число? (Предпочтительнее дата.)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
begin
pag:=TTabSheet.Create(pagecontrol1);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
end;

Как понимаю нужно изменить строчку 6, но как это сделать я не знаю!!??Спасибо.

[angvelem]

Так что ли?

Код:

  pag.Caption := DateToStr(Date); 

[Evgen_Balbes]

Спасибо. То что надо. А по поводу случайных чисел не подскажите ?

[angvelem]

Такой вариант устроит?

Код:

  pag.Caption := IntToStr(Random(90000) + 10000); 

[Evgen_Balbes]

Класс, это то что нужно

[Edit1]

Для вывода времени: TimeToStr(Time). Возможно понадобиться