Обращение к динамически созданным компонентам.

[Lime]

Доброго времени суток !

Хочу спросить у Вас совета.
Мне нужно динамически создавать TTabSheet и TSynMemo во время работы программы.
как-то так :

procedure TForm1.N2Click(Sender: TObject);
var
nS:TTabSheet;
Syn:Tsynmemo;
begin
nS:=TTabsheet.Create(pagecontrol1);
ns.PageControl := pagecontrol1;
ns.ImageIndex := 0;
ns.Caption:='Unnamed'+inttostr(pagecontrol1.ControlCount)+'.afs';
ns.Name := 'tabsheet'+ inttostr(pagecontrol1.ControlCount);
syn:=Tsynmemo.Create(ns);
syn.Parent := ns;
syn.Align := alclient;
syn.Name := 'syn'+ inttostr(pagecontrol1.ControlCount);
syn.Gutter.Gradient:=true;
syn.Gutter.GradientStartColor := $0082BFBF;
syn.Gutter.GradientEndColor := clwhite;
syn.Gutter.LeftOffset := 2;
syn.Gutter.RightOffset := 2;
syn.Gutter.ShowLineNumbers := true;
syn.Gutter.ZeroStart :=true;
syn.Gutter.DigitCount := 5;
syn.Gutter.Font.Size := 10;
syn.Lines.Clear;
syn.BorderStyle:=bsnone;
end;

Далее разрушать ( при закрытии документа )
Если создать допустим tabsheet1 tabsheet2 tabsheet3
потом tabsheet2 разрушить , останутся tabsheet1 tabsheet3 , и при "открытии" нового документа ( будет создаватся tabsheet3 . ошибка).

Каким образом лучше давать имена ? как лучше решить эту проблему?
Так - же мне нужно будет по Caption TTabsheet обращатся к TSynMemo.

Смотрел http://programmersforum.ru/showthread.php?p=279991 .

Спасибо за советы !

[Dj_smart]

Имхо для этого нужно использовать массив записей. Аля

type
  TMyTab=record
    Edit:SynMemo;
    Tab:TTabsheet;
  end;
var
  Tabs:array[1..100] of TMyTab;
  TabsCount:integer=0;

Cоздавая табу увеличивай Count. Удаляя сделуй тако инструкции:

for n:=deltab to TabsCount-1 do begin
  Tabs[n]:=Tabs[n+1];
end;
Dec(TabsCount);

// ошибок быть не должно
Тем более в запись можно внести доп. свойства, если нужно. и тд...

[Evgeniy26]

Тогда уж динамический массив. И не недо:

 
...
TabsCount:integer=0;
...

Или TStringList использовать, xратить там объект и имя на него...

[Dj_smart]

Тогда уж динамический массив. И не недо:

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

[Lime]

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

Удаляя сделуй тако инструкции:

for n:=deltab to TabsCount-1 do begin
  Tabs[n]:=Tabs[n+1];
end;
Dec(TabsCount);

// ошибок быть не должно
Тем более в запись можно внести доп. свойства, если нужно. и тд...

Я тоже склонялся к Вашему варианту , Спасибо .
Но очень не хотелось использовать нечто подобное "удалению" в Вашем варианте.
Мне кажется что это будет "влиять" на производительность .
На счёт доп свойств - это хорошо , даже полезно в конкретном случае ...
Сделал с TabsCount;

Добавил свойство Caption:string; Такое-же как и у TTabSheet (имя файла);
Теперь чтобы обратится к TSynMemo я предполагаю нужно организовать поиск по этому свойсту cреди массива?
И получим # TMyTab ?

[Evgeniy26]

Если удалять, используй TStringList удобней будет.

[Dj_smart]

Мне кажется что это будет "влиять" на производительность .

Делал подобный редактор, проблем небыло, производительность была в порядке.
Кстати даже данные должны идти по порядку а не кашей, посему утечек быть не должно по определению обычного массива

[Daramant]

Чем не устраивает стандартный TObjectList?

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

По сути TObjectList - это тот же динамический массив, только указателей.
Это же насколько интенсивно нужно изменять его размер, чтобы появились проблемы с памятью?
Сколько использовал, проблем никогда не возникало.
К тому же, в данном случае, компонент будет максимум несколько десятков, и проблем точно не возникнет.
+ TObjectList уже содержит реализацию, вставок, удалений и прочих функций, что, само собой, удобно.

[Lime]

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

Чем не устраивает стандартный TObjectList?

По сути TObjectList - это тот же динамический массив, только указателей.
Это же насколько интенсивно нужно изменять его размер, чтобы появились проблемы с памятью?
Сколько использовал, проблем никогда не возникало.
К тому же, в данном случае, компонент будет максимум несколько десятков, и проблем точно не возникнет.
+ TObjectList уже содержит реализацию, вставок, удалений и прочих функций, что, само собой, удобно.

А можно небольшой пример ?
С остальным что было написано выше я уже имел опыт , а с этим нет.
Осталось ещё несколько штрихов

Вот с "закрытием" документа не получается ...

for n:=deltab to TabsCount-1 do begin
  Tabs[n]:=Tabs[n+1];
end;
Dec(TabsCount);

Наверно нужно просто разрушать ... потому что после данного "удаления" все действия производимые с присвоенными обьектами выдают ошибку.
Хранить отдельный int не уменьшая его , тк при "удалении" TTabSheet & TSynMemo уменьшается TabsCount , и заново создаётся обьект с таким-же номером , хоть и относится к другому элементу Tabs[] .

[Daramant]

А можно небольшой пример ?

Здесь нет ничего сложного.
Весь функционал можно посмотреть в исходниках (TObjectList в модули Contnrs и его предок TList в модуле Classes)
Вот пример:

var
  MyList: TObjectList;
  btn: TButton;
begin
  MyList := TObjectList.Create;

  btn := TButton.Create(nil);
  btn.Caption := 'btn 1';
  btn.Parent := Form1;
  MyList.Add(btn);

  btn := TButton.Create(nil);
  btn.Caption := 'btn 2';
  btn.Parent := Form1;
  MyList.Add(btn);

  ShowMessage(IntToStr(MyList.Count));

  TButton(MyList.Items[0]).Enabled := False;

  MyList.Free;

end;

TObjectList представляет собой список объектов типа TObject.
Т.к. обычно требуется использовать некоторый свой тип, то каждый раз делать приведение типов неудобно.

TButton(MyList.Items[0]).Enabled := False;

Поэтому, можно перекрыть несколько методов в потомке или агрегировать объект типа TObjectList в свой класс.

P.S.
А перед удалением записи объекты уничтожаешь?

Tabs[deltab].Edit.Free;<--
Tabs[deltab].Tab.Free; <--

for n:=deltab to TabsCount-1 do begin
  Tabs[n]:=Tabs[n+1];
end;
Dec(TabsCount);