Форум АНТИЧАТ - Динамичное создание tabsheet

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Динамичное создание tabsheet (https://forum.antichat.xyz/showthread.php?t=170967)

Динамичное создание tabsheet

Здравствуйте. Как можно динамично создавать страницы(tabsheet) не зная заранее сколько их будет?
если бы заранее было известно сколько нужно создавать страниц делал бы так:

Код:

var

TabSheet : TTabSheet;

TabSheet := TTabSheet.Create(Self);

TabSheet.PageControl := PageControl;

но вот как создавать допустим если нужно сделать 5 страниц? Не могу же Я просто продублировать этот текст 5 раз с разными названиями переменных. Помогите пожалуйста :)

for .. to .. do

там ты просто будешь по-новой создавать объект.

Код для создания 5-и TabSheets:

Код:

var

  TabSheet: array[1..5] of TTabSheet;

  i: integer;

begin

  for i := 1 to 5 do

  begin

    TabSheet[i] := TTabSheet.Create(Self);

    TabSheet[i].PageControl := PageControl;

  end;

end;

Решил делать таким способом

Код:

var

TabSheet : TTabSheet;

i, TabIndex: integer;

begin

 TabIndex := 0;

 for i:=0 to 1000 begin

  TabSheet := nil;

  TabSheet := TTabSheet.Create(Self);

  TabSheet.Name := 'TabSheet' + IntToStr(TabIndex); // TabIndex - счётчик табов

  TabSheet.Caption := 'TabSheet' + IntToStr(TabIndex);

  TabSheet.PageControl := PageControl; 

  Inc(TabIndex);

 end;

end;