«Двойной вызов» конструктору объекта допустим

Question

Ребята, к моему удивлению, я вижу, что «двойной вызов» конструктору объекта приемлемо для компилятора. Любая идея, какая цель это служит, и что будет результатом такой функции?

procedure TForm1.Button1Click(Sender: TObject); 
var 
    vLabel : Tlabel; 
begin 
    vLabel := Tlabel.Create(self).Create(self); 
end; 

Answer 1

Второй вызов Create работ, как обычный вызов процедуры: она отсутствует какая-либо из специального строительного кодекса и только выполняет код пользователя в конструкторе. На практике это очень полезно, чтобы иметь возможность вызывать другие конструкторы от реализации конструктора:

constructor TLabel.CreateHello(AOwner: TComponent); 
begin 
    // Perform default construction. 
    Create(AOwner); 
    // Set default text. 
    Caption := 'Hello'; 
end; 

Сравните это с C++, где вы должны переместить общую логику для нескольких конструкторов в отдельную функцию, потому что вы не можете вызовите конструктор после создания объекта. Решение Delphi элегантно и поощряет повторное использование кода.

Для реализации этого существует скрытый дополнительный логический параметр для конструкторов, который указывает, выполнять ли полную логику построения (например, распределение памяти) или нет.