[kenshi245]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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.

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

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.

Может есть какое-то более простое решение?

[lmikle]

Странно, у меня на Delphi 10.2 первый пример успешно скомпилился.
Попробуй добавить virtual при описании конструктора:

Код:

1 2 3 4 5 6

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

Что бы уж точно "убрать" старый конструктор, который без параметров...

[kenshi245]

Не помогло, все ту же ошибку выдает

[lmikle]

Какая версия Delphi?
Если будет время вечером - проверю.
Хотя странно, что-то тут не так, т.к. по сути первый пример должен работать. Может ты не весь код привел?

[kenshi245]

Версию точно не подскажу, это встроенный в другую программу компилятор (бот для lineage2), код я показал полностью, видимо в моем случае поможет только overload?

[lmikle]

Ну тогда это явный косяк встроенного компилятора.
На родной Дельфе все работает.
Может там FreePascal какой-нить...

[lmikle]

Да, кстати, попробуй в первом примере вызвать коструктор вот так:

Код:

1	MyClass := TChildClass.Create('John',False);

Может просто данный компилятор не поддерживает параметры со значением по умолчанию в конструкторах или унаследованных методах...