Warum erlaubt Delphi, dass Konstruktorparameter falsch sind?

Question

Dies könnte wie eine wirklich dumme Frage erscheinen, aber ich weiß nicht, warum dies auch zu kompilieren erlaubt ist:

program ConstructorWithParam; 

{$APPTYPE CONSOLE} 

uses 
    System.SysUtils; 

type 

    TThing = class(TObject) 
    private 
    FParent: TObject; 
    public 
    constructor Create(const AParent: TObject); 
    end; 

{ TThing } 

constructor TThing.Create; // <- WTF? Why does the compiler not complain? 
begin 
    FParent := AParent; 
end; 

var 
    Thing: TThing; 
begin 
    try 
    Thing := TThing.Create(TObject.Create); 
    Readln; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

I Delphi XE5 bin mit und nicht auf anderen Versionen getestet. Danke.

Answer 1

Die erste Deklaration in der Formularklasse wird als korrekt angenommen. Die Implementierungsversion muss die erforderlichen Parameter nicht identifizieren. Sie werden von der ursprünglichen Deklaration übernommen. Dies ist ein Teil der Sprache selbst.

Hier ist ein gutes Beispiel dafür, den Punkt zu veranschaulichen:

type 
    TMyClass = class (Tobject) 
    procedure DoSometimg(DoA, DoB: Boolean); 
    end; 

Umsetzung:

procedure TMyClass.DoSomething; // Note both parameters missing 
begin 
    if DoA then // Note not mentioned in implementation declaration 
    DoOneThing; // but still can be used here 
    if DoB then 
    DoAnotherThing; 
end; 

Ich persönlich bevorzugen sowohl die Implementierung und Interface-Deklarationen Spiel zu machen, denn es macht es einfacher, die zu identifizieren Parameter, ohne im Code-Editor so viel herumzuspringen.