Конструктор обобщённого типа.

[min@y™]

Сабж возможен? Чот курил-курил маны, и не вкурил. Подскажите, кто постиг в сабже дзэн.
Дано:

function TAbstractOption.NewChildOption(const AKind: TOptionKind;
  const AName: string = ''): TXmlOption;
var
  E: EOptionSimple;
begin
  case AKind of
    okOrdinal: Result:= TXmlOptionOrdinal.Create(Self);
    okFloat:   Result:= TXmlOptionFloat.Create(Self);
    okPoint:   Result:= TXmlOptionPoint.Create(Self);
    okRect:    Result:= TXmlOptionRect.Create(Self);
    okString:  Result:= TXmlOptionString.Create(Self);

    okIntList: Result:= TXmlOptionIntList.Create(Self);

    // и так далее...
  else Result:= nil; // для вызова исключения
  end;

  if Assigned(Result)
    then begin
           if AName <> ''
             then Result.Name:= AName;

           Self.Add(Result);
         end
    else begin
           E:= EOptionSimple.CreateFmt('Запрещено созавать объекты "%s" внутри "%s".',
                                       [KindToStr(AKind), KindStr]);
           E.Sender:= Self;
           raise E;
         end;
end;

Здесь классы TXmlOptionХХХ - потомки класса TXmlOption. В зависимости от вида (параметр Kind) создаётся и возвращается экземпляр соответствующего класса.

Задача: заменить метод на что-то подобное:

function TAbstractOption.NewChildOption<T>(const AName: string [; другие нужные параметры]): T;
begin
  Result:= ....Create();
end;

Кто прочухал, подскажите-ка.

[Stilet]

А классику типа:

function TAbstractOption.NewChildOption(const AKind: TOptionKind;
  const AName: string = ''): TObject;
var
  E: EOptionSimple;
begin
  case AKind of
    okOrdinal: Result:= TXmlOptionOrdinal.Create(Self);
    okFloat:   Result:= TXmlOptionFloat.Create(Self);
    okPoint:   Result:= TXmlOptionPoint.Create(Self);
    okRect:    Result:= TXmlOptionRect.Create(Self);
    okString:  Result:= TXmlOptionString.Create(Self);

    okIntList: Result:= TXmlOptionIntList.Create(Self);
...

не желаешь?

[Аватар]

Заглянуть в код Application.CreateForm не?

[min@y™]

не желаешь?

Так оно уже есть (см. выше) и вполне себе работает. Просто перечисление TOptionKind со временем распухнет до over9000 значений, так что хотелось бы выкинуть case.

Заглянуть в код Application.CreateForm не?

Это метод-процедура, а мне нада функцию. И не спрашивать, почему!

[Аватар]

Дык переделай. Так примерно. Еще посмотреть какие подводные камни там

type
  TLabel1 = class(TLabel);
  TLabel2 = class(TLabel);
  TForm1 = class(TForm)
...

function CreateComponent(InstanceClass: TComponentClass; AOwner: TComponent): TComponent;
var Instance: TComponent;
    Reference: Pointer;
begin
  Instance:=TComponent(InstanceClass.NewInstance);
  TComponent(Reference):=Instance;
  try
    Instance.Create(AOwner);
  except
    TComponent(Reference):=nil;
  end;
  Result:=Reference;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Label1: TLabel1;
begin
  Label1:=TLabel1(CreateComponent(TLabel1,Self));
  Label1.Top:=0;
  Label1.Left:=0;
  Label1.Caption:='ё-п-р-с-т';
  Label1.Parent:=Self;
end;

[min@y™]

Дык переделай.

Ща попробую. Вдруг получится?
Только обобщённых типов там не будет, а хотелось бы попутно в них разобраться.

[evg_m]

type 
  TXMLOptionClass =class of TXMLOption;

function TAbstractOption.NewChildOption(const AKind: TXMLOptionClass;
  const AName: string = ''): TXmlOption;
begin
  result:=Akind.Create(self);
...
end;

xml1:=NewChildOption(TXMLOption1, ..);
.....
xml100:=NewCHildOption(TXMLOption100, ...);

[min@y™]

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

type 
  TXMLOptionClass =class of TXMLOption;

function TAbstractOption.NewChildOption(const AKind: TXMLOptionClass;
  const AName: string = ''): TXmlOption;
begin
  result:=Akind.Create(self);
...
end;

xml1:=NewChildOption(TXMLOption1, ..);
.....
xml100:=NewCHildOption(TXMLOption100, ...);

Не прокатит, всё равно нужно явное приведение типа, а мне надо, чтобы функция возвращала сразу объект нужного класса, а не его класса-предка. Для это и хочу заюзать, если возможно, обобщённый тип.

[evg_m]

а если переделать с функции на процедуру с var парамером ?
так, как работает application.CreateForm
это предложение уже мелькало здесь.

procedure CreateXMLOption(var option: TXMLOption; optionClass: TXMLOptionClass);
begin
  result:=optionclass.Create();
  ...
end;

var
  option1: TXMLOption1;
  option100: TXMLOption100;

CreateXMLOption(option1, TXMLOption1);
option1.optionX;
CreateXMLOption(option100, TXMLOption100);
option100.optionY;

Это метод-процедура, а мне нада функцию. И не спрашивать, почему

ВСЕ ПОНЯЛ.

[Человек_Борща]

А что-нибудь типа этого:

program project1;

{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}


uses
  fgl;

type

  { TBaseOption }
  TBaseOption = class;
  TOneOption = class;
   TDuoOption = class;

  TBaseOption = class(TObject)
    private
      fName:string;
    public
      property Name:string read fName;
      constructor Create(const sName:string = 'BaseOption class instance'); overload;
      destructor Destroy; override;
  end;

 { TOneOption }

 TOneOption = class(TBaseOption)
 public
   constructor Create; overload;
   destructor Destroy; override;
 end;

 { TDuoOption }

 TDuoOption = class(TBaseOption)
 public
   constructor Create; overload;
   destructor Destroy; override;
 end;

 TOptions = specialize TFPGObjectList<TBaseOption>;

 //implementation

 { TBaseOption }

constructor TBaseOption.Create(const sName: string);
begin
  Inherited Create;
  fName := sName;
end;

destructor TBaseOption.Destroy;
begin
  inherited Destroy;
end;

{ TOneOption }

constructor TOneOption.Create;
begin
  Inherited Create('OneOption class instance');
end;

destructor TOneOption.Destroy;
begin
  inherited Destroy;
end;

{ TDuoOption }

constructor TDuoOption.Create;
begin
 Inherited Create('SecondOption class instance');
end;

destructor TDuoOption.Destroy;
begin
  inherited Destroy;
end;

var
  list:TOptions;
  one:TOneOption;
  duo:TDuoOption;
  base:TBaseOption;
  i:integer;
begin
  WriteLn('Hi');
  list := TOptions.Create();
  base:=TBaseOption.Create();
  one:=TOneOption.Create();
  duo:=TDuoOption.Create();
  try
    list.Add(base);
    list.Add(one);
    list.Add(duo);
    for i:=0 to list.Count -1 do
    begin
      WriteLn('Classes in list: '+list[i].Name);
    end;
  finally
     list.Free;
  end;
  ReadLn;
end.

итог: