Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.01.2020, 21:54
kenshi245 kenshi245 вне форума
Прохожий
 
Регистрация: 08.06.2017
Сообщения: 15
Версия Delphi: Delphi
Репутация: -625
По умолчанию Выдает ошибку при наследовании

Что мне сделать, чтобы я мог не передавать необязательные параметры при создании объекта класса, при такой конструкции, компилятор ругается на нехватку параметров.

Код:
unit Test;

interface

type

  TBaseClass = class
  public
    Name: String;
    Active: Boolean;
    constructor Create(Name: String; Active: Boolean = False);
  end;

  TChildClass = class(TBaseClass)
  end;
    
implementation

  constructor TBaseClass.Create(Name: String; Active: Boolean = False);
  begin
  inherited Create;
    Self.Name := Name;
    Self.Active := Active;
  end;
  
var
  MyClass: TChildClass;
begin
  MyClass := TChildClass.Create('John'); // Not enough actual parameters.
end.

Если написать так, то все работает, но сама идея переписывать каждый раз конструктор мне кажется неправильной.

Код:
unit Test;

interface

type

  TBaseClass = class
  public
    Name: String;
    Active: Boolean;
    constructor Create(Name: String; Active: Boolean = False);
  end;

  TChildClass = class(TBaseClass)
  public
    constructor Create(Name: String; Active: Boolean = False);
  end;
    
implementation

  constructor TBaseClass.Create(Name: String; Active: Boolean = False);
  begin
  inherited Create;
    Self.Name := Name;
    Self.Active := Active;
  end;

  constructor TChildClass.Create(Name: String; Active: Boolean = False);
  begin
    inherited Create(Name, Active);
  end;
  
var
  MyClass: TChildClass;
begin
  MyClass := TChildClass.Create('John');
end.

Может есть какое-то более простое решение?
Ответить с цитированием
  #2  
Старый 05.01.2020, 00:51
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,540
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

Странно, у меня на Delphi 10.2 первый пример успешно скомпилился.
Попробуй добавить virtual при описании конструктора:
Код:
  TBaseClass = class
  public
    Name: String;
    Active: Boolean;
    constructor Create(Name: String; Active: Boolean = False); virtual;
  end;
Что бы уж точно "убрать" старый конструктор, который без параметров...
Ответить с цитированием
  #3  
Старый 06.01.2020, 12:11
kenshi245 kenshi245 вне форума
Прохожий
 
Регистрация: 08.06.2017
Сообщения: 15
Версия Delphi: Delphi
Репутация: -625
По умолчанию

Не помогло, все ту же ошибку выдает
Ответить с цитированием
  #4  
Старый 06.01.2020, 18:53
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,540
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

Какая версия Delphi?
Если будет время вечером - проверю.
Хотя странно, что-то тут не так, т.к. по сути первый пример должен работать. Может ты не весь код привел?
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
kenshi245 (07.01.2020)
  #5  
Старый 07.01.2020, 14:52
kenshi245 kenshi245 вне форума
Прохожий
 
Регистрация: 08.06.2017
Сообщения: 15
Версия Delphi: Delphi
Репутация: -625
По умолчанию

Версию точно не подскажу, это встроенный в другую программу компилятор (бот для lineage2), код я показал полностью, видимо в моем случае поможет только overload?
Ответить с цитированием
  #6  
Старый 08.01.2020, 02:08
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,540
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

Ну тогда это явный косяк встроенного компилятора.
На родной Дельфе все работает.
Может там FreePascal какой-нить...
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
kenshi245 (08.01.2020)
  #7  
Старый 08.01.2020, 21:29
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,540
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

Да, кстати, попробуй в первом примере вызвать коструктор вот так:
Код:
MyClass := TChildClass.Create('John',False);
Может просто данный компилятор не поддерживает параметры со значением по умолчанию в конструкторах или унаследованных методах...
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:44.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2020

ВКонтакте   Facebook   Twitter