Динамическое создание компонентов с динамически задаваемыми именами - возможно ли это??

[delphicoding]

Здравствуйте!
Вопрос элементарный, но решить не получается хотя интернет весь прочитал.
Есть некая родительская форма которая затем наследуется кучей форм (назовём BaseForm).
Из этой формы создано много дочерних inherited форм (назовём FormA,FormB,FormX..), в каждой уже свои дела.
Есть некий единый объект DataMaster отдельный от всех этих форм, к нему обращаются все дочерние формы во время работы.
Задача - нужно из дочерних форм OnCreate создавать в DataMaster некий Dataset с заданным именем, чтобы все формы могли к нему обратиться, а после использования уничтожать.
Вопрос - какой код написать в BaseForm, чтобы при открытии FormA,FormB,FormX.. в DataMaster создавался Dataset с именем соответствующим Form вида DatasetFormA,DatasetFormB,DatasetFo rmX... ??? (чтобы можно было к нему обращаться)

PS Получается сделать всё, кроме как главное - Delphi никак не даёт указать динамическое название для создаваемого объекта вида ['Dataset'+Self.Name := fDataMaster.Create(TDataset)]. Пробовал через AS ['Dataset'+Self.Name as DatasetDef:= fDataMaster.Create(TDataset)] и соот наоборот - тоже не пропускает.
Пробовал иначе - создавать через единую переменную DatasetDef, а затем [DatasetDef.Name:='Dataset'+Self.Nam e] - но программа на этом вылетает с критической ошибкой, кроме того, этот код видимо не подойдёт для созданных Dataset начиная со второго, тк название переменной как у первого созданного.

[Пепел Феникса]

компоненты разных форм могут иметь одинаковое название.

[delphicoding]

Все компоненты создаются в ОДНОЙ ЕДИНОЙ ФОРМЕ!
(По примеру - компоненты Dataset из всех окон нужно создать в одном объекте DataMaster!)

[raxp]

...кто мешает объявить глобальный динамический массив компонентов и при создании каждой формы просто индексировать новый элемент?

var ds: array of Dataset;

...
setlength(d, length(d)+1);

Обращаться просто d[i]

[delphicoding]

Не понял, что Вы предложили, но мне кажется это работать не будет. :D
Или вы предлагаете заранее их определить? Это не решение задачи, это и так понятно, можно и в каждой форме свой код написать...

[Triplecool]

Вместо memo можно подставить любой другой компонент:

function TForm1.NewMemo(Memo: TMemo; AOwner: TComponent): TMemo;
var Stream: TMemoryStream;
begin
 Stream := TMemoryStream.Create;
 try
   Stream.WriteComponent(Memo);
   Stream.Position := 0;

   Result := TMemo.Create (nil);
   Result.Parent := Memo.Parent;
   Stream.ReadComponent(Result);
 finally
   Stream.Free;
 end;
end;

Вот как этим пользоваться:

procedure ...
var MemoN:TMemo;
begin
MemoN:=NewMemo(Memo1,self); //где MemoN наследует все свойвства Memo1 (свойвства           MemoN можно изменять) 
end;

[delphicoding]

procedure ...
var MemoN:TMemo;
begin
MemoN:=NewMemo(Memo1,self); //где MemoN наследует все свойвства Memo1 (свойвства           MemoN можно изменять) 
end;

Круто, но в базовой форме ещё никакого MemoN (FormA,FormB,FormX итд), они после наследуются!
Вот и не понятно как написать в базовой форме BaseForm универсальный код работающий во всех inherited формах FormA,FormB,FormX динамически создающий объекты в другом общем объекте DataMaster с использование названий inherited форм вида DatasetA,DatasetB,DatasetX... ???

[DiemonStar]

можно попробовать как-то так оформить (процесс удаления по-хорошему дорабатывать нужно, но смысл очевиден)

unit Unit2;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDataModule2 = class(TDataModule)
  private
    { Private declarations }
    Datasets: array of TDataset;
    function GetCount : integer;
  public
    { Public declarations }
    property DatasetsCount : integer read GetCount;
    function AddDataset() : TDataset;
    procedure CloseDataset(Ds : TDataset);
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.CloseDataset(Ds : TDataset);
var I, J : integer;
begin
  J := -1;
  For I := 0 to GetCount - 1 do
    if Ds = Datasets[I] then
      J := I;
  if J > 0 then
    begin
      DataSets[J] := Datasets[GetCount - 1];
      SetLength(Datasets, GetCount -1);
      Ds.Destroy;
    end;
end;

function TDataModule2.AddDataset: TDataset;
begin
  SetLength(Datasets, GetCount + 1);
  Datasets[GetCount-1] := TDataset.Create(nil);
  Result := Datasets[GetCount-1];
end;

function TDataModule2.GetCount: Integer;
begin
  GetCount := Length(Datasets);
end;

end.

[Stilet]

в DataMaster создавался Dataset с именем соответствующим Form

Зачем? Вынеси это поле в класс формы.

[GunSmoker]

Задача - нужно из дочерних форм OnCreate создавать в DataMaster некий Dataset с заданным именем, чтобы все формы могли к нему обратиться, а после использования уничтожать.

По этому описанию получается, что дочерняя форма создаёт глобальный объект.