Есть такой код
type
TClass1 = class
public
constructor Create; overload;
constructor Create(AVal: Integer); overload;
end;
TClass2 = class(TClass1)
public
constructor Create(const AStr: string); overload;
constructor Create(const AStr: string; AVal: Integer); overload;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LObj: TClass1;
begin
LObj := TClass2.Create(10);
end;
Можно ли как-то на выделенной строке получить ошибку компиляции? Т.к. у TClass2 нет перегруженного конструктора принимающего один Integer.
Или какие еще есть способы передать в конструкторы потомка еще один параметр?
С уважением, Vasilisk