Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ООП проблемы с нужным классом

Автор: relate 19.2.2010, 11:21

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

Code simple:

Код



unit Base_
type

THpCustomfF_class_ConvertWay = class of THpCustomfF_ConvertWay;

THpCustomfF_Data =class(THpCustom_Data)
  {==== Story ==================================================================
  базовый класс данных из файла
  -----------------------------------------------------------------------------}
  protected
    ....
    {cпособ конвертирования}
    fConvertWay : THpCustomff_ConvertWay;
    {список доступных классов способов конвертирования этих данных}
    fConvertWayAvailable: array of THpCustomfF_class_ConvertWay;
    ...
  public
//    constructor Create;
    destructor  Destroy; override;
    {}
    property convertWay : THpCustomff_ConvertWay read fConvertWay;
    property convertWayAvailable[index: integer]: THpCustomfF_class_ConvertWay read CWAvailableGet;
    {установить способ конвертирования данных}
    procedure convertWaySet4it (Class_CW: THpCustomfF_class_ConvertWay);
    ...
end;


implementation

{==============================================================================}
{установить способ конвертирования данных}
procedure THpCustomfF_Data.convertWaySet4it (Class_CW: THpCustomfF_class_ConvertWay);
  begin

    if (self.fConvertWay<>nil) then
      if (self.fConvertWay.ClassName = Class_CW.ClassName)
        then exit;

    FreeAndNil(self.fConvertWay);
    self.fConvertWay := Class_CW.Create
  end;
end.

Код



unit Coord
type

THpFF_Data_CoordX =class(THpCustomfF_Data, iHp_FF, iHp_Data_CoordX)
  {==== Story ==================================================================
  класс данных координата Х
  -----------------------------------------------------------------------------}
  private
  protected
  public
    constructor Create;
  end;

implementation
{==============================================================================}
constructor THpFF_Data_CoordX.Create;
  begin
    inherited Create;
    {}
    {список доступных классов способов конвертирования этих данных}
    setLength(self.fConvertWayAvailable,3);
    self.fConvertWayAvailable[0] := THpFF_ConvertWay_CoordGMS;
    self.fConvertWayAvailable[1] := THpFF_ConvertWay_CoordMS;
    self.fConvertWayAvailable[2] := THpFF_ConvertWay_CoordS;
    {cпособ конвертирования}
    self.fConvertWay := self.fConvertWayAvailable[0].Create; <=!!! ВЫЗЫВАЕТСЯ КОНСТРУКТОР THpCustomfF_ConvertWay, а хочется конструктор THpFF_ConvertWay_CoordGMS
  end;
end.

Можно сделать self.fConvertWay := THpFF_ConvertWay_CoordGMS.create;
Но как поступить с функцией  THpCustomfF_Data.convertWaySet4it ???
Мне удобно ее пользовать d_f.convertWaySet4it(d_f.convertWayAvailable[1]); А имя класса, что храниться в массиве брать, как class funtion NameStr: string;
Да и список доступных способов преобразования fConvertWayAvailable каждый наследник THpCustomfF_Data создает свой...

Помогите pls

    self.fConvertWayAvailable[0] := THpFF_ConvertWay_CoordGMS;
    self.fConvertWay := self.fConvertWayAvailable[0].Create; <= Как вызвать конструктор класса THpFF_ConvertWay_CoordGMS ?

Автор: CodeMonkey 19.2.2010, 14:07

Так конструктор ведь не виртуальный. Сделайте виртуальным.

Автор: relate 19.2.2010, 18:12

Хм, конструктор базового класса?

Код


{--.--.20--====================================================================}
  THpCustomfF_ConvertWay = class (TObject)
  {==== Story ==================================================================
  базовый класс cпособа конвертирования
  -----------------------------------------------------------------------------}
  protected
    {описание данных, которые берем из файла}
    fdataFF : THpCustomff_CW_DFRelated;

    {Функция для конвертирования значений из файла в данные используемые в программе}
    function ConvertF2P (DataFromFile:array of string   // Данные из файла
                        ): double;  virtual; abstract;  // Результат: данные используемые в программе
    {Функция для конвертирования значений из данных используемых в программе в данные для записи в файл}
    function ConvertP2F (DataInProg :double             // Данные используемые в программе
                        ): String1D; virtual; abstract; // Результат: данные для записи в файл
  public
    constructor Create;{сделал, не помогло} virtual;
    destructor  Destroy; override;

    {Имя способа конвертирования}
    class function name: string; virtual; abstract;
    {описание данных, которые берем из файла}
    property datff: THpCustomff_CW_DFRelated read fdataFF;
  end;

Не помогло
Убрал virtual

В потомке?

Код


{--.--.20--====================================================================}
  THpFF_ConvertWay_CoordGMS = class (THpCustomfF_ConvertWay)
  {==== Story ==================================================================
  класс cпособа конвертирования
  координата: градусы минуты секунды
  -----------------------------------------------------------------------------}
  protected
    {Функция для конвертирования значений из файла в данные используемые в программе}
    function ConvertF2P (DataFromFile:array of string   // Данные из файла
                        ): double;  override;  // Результат: данные используемые в программе
    {Функция для конвертирования значений из данных используемых в программе в данные для записи в файл}
    function ConvertP2F (DataInProg :double             // Данные используемые в программе
                        ): String1D; override; // Результат: данные для записи в файл
  public
    constructor Create; {сделал, тож не помогло} virtual;
    {Имя способа конвертирования}
    class function name: string; override;
  end;

Спасибо за совет, но...
Не помогло... вызывается конструктор THpCustomfF_ConvertWay... и все.
Вопрос остается открытым help please

Автор: relate 19.2.2010, 18:35

По сути virtual, если не изменяет память меняет расположение метода в VMT использование virtual оправданно если метод используется часто....

Автор: relate 19.2.2010, 18:50

О! все это натолкнуло на мысль сделать метод Create в базовом классе абстрактным:

Код


{--.--.20--====================================================================}
  THpCustomfF_ConvertWay = class (TObject)
  {==== Story ==================================================================
  базовый класс cпособа конвертирования
  -----------------------------------------------------------------------------}
  protected
    {описание данных, которые берем из файла}
    fdataFF : THpCustomff_CW_DFRelated;

    {Функция для конвертирования значений из файла в данные используемые в программе}
    function ConvertF2P (DataFromFile:array of string   // Данные из файла
                        ): double;  virtual; abstract;  // Результат: данные используемые в программе
    {Функция для конвертирования значений из данных используемых в программе в данные для записи в файл}
    function ConvertP2F (DataInProg :double             // Данные используемые в программе
                        ): String1D; virtual; abstract; // Результат: данные для записи в файл
  public
    constructor Create; virtual; abstract; {делаем метод абстрактным -отдаем реализацию его потомкам, не просто обязываем их реализовывать его ;-)}
    destructor  Destroy; override;

    {Имя способа конвертирования}
    class function name: string; virtual; abstract;
    {описание данных, которые берем из файла}
    property datff: THpCustomff_CW_DFRelated read fdataFF;
  end;

в классе потомке реализовываем его:

Код


{--.--.20--====================================================================}
  THpFF_ConvertWay_CoordGMS = class (THpCustomfF_ConvertWay)
  {==== Story ==================================================================
  класс cпособа конвертирования
  координата: градусы минуты секунды
  -----------------------------------------------------------------------------}
  protected
    {Функция для конвертирования значений из файла в данные используемые в программе}
    function ConvertF2P (DataFromFile:array of string   // Данные из файла
                        ): double;  override;  // Результат: данные используемые в программе
    {Функция для конвертирования значений из данных используемых в программе в данные для записи в файл}
    function ConvertP2F (DataInProg :double             // Данные используемые в программе
                        ): String1D; override; // Результат: данные для записи в файл
  public
    constructor Create; override; {реализовывать абстрактный метод родителя бум здесь}
    {Имя способа конвертирования}
    class function name: string; override;
  end;

и в конструкторе небольшие изменения:

Код


{==============================================================================}
constructor THpFF_ConvertWay_CoordGMS.Create;
  begin
//    inherited Create; {теперь мы не можем вызывать конструктор предка -он абстактный}
    TObject.Create; {вместо этого явно вызываем конструктор родителя 
                              TObject
                              THpCustomfF_ConvertWay   
                              THpFF_ConvertWay_CoordGMS }
    {}
    {описание данных, которые берем из файла}
    self.fdataFF:= THpFF_CW_DFRelated_CoordGMS.Create;
  end;

и о чудо! работает )))))))))))
Ура, заработало! smile

Автор: relate 19.2.2010, 19:24

CodeMonkey

Спасибо за направление поиска!
Может вы, говоря

Цитата

сделать виртуальным

подразумевали ввиду абстрактным smile

разбежались в терминогологии

Thanks 4 you!!! Реутинг не повышается -у меня менее 100 постов

Автор: relate 19.2.2010, 21:43

Еще один вариант решения проблеммы.

Подсказал Gelios -админ дру сайта:

Цитата

я юзал такую схему.
1. регистрировал классы RegisterClass
2. FindCalss(classname).Create

Код


procedure TAnyCollection.Added(var Item: TCollectionItem);
var
  Result: TCollectionItem;
  cl: TCollectionItemClass;
  col: TCollection;
begin
  // Создадим элемент с нужным типом.
  // Для этого используем имя класса из массива
  // В этот массив будут заносится элементы методом AddEx
  try
    cl := TCollectionItemClass(FindClass(FAnyClass[Item.Index]));
    col := Item.Collection;
    Result := cl.Create(col);
    Item.Free;
    Item := Result;
  except
    Item := nil; // в случае ошибки ничего не делаем
  end;
end;

обрати внимание на тип переменной cl, и какой у тебя тип для аналогичной конструкции