Dlaczego kompilator Delphi nie ostrzega o zdefiniowanej na nowo stałej?

Question

Mój kolega wpadł w stałą, która nagle zmieniła wartość;
okazało, był redeclared:

unit Unit1; 

interface 

const 
    MyConstant = 1; 

implementation 

end. 

-

unit Unit2; 

interface 

const 
    MyConstant = 2; 

implementation 

end. 

-

Uses Unit1, Unit2; 
// Uses Unit2, Unit1; 

procedure TFrmRedefineConstant.FormShow(Sender: TObject); 
begin 
    ShowMessage('MyConstant: ' + IntToStr(MyConstant)); 
end; 

To pokazuje 2. Jeśli zamienisz kolejność jednostek w instrukcji Uses, wyświetli się 1.

Dobrze, ale dlaczego kompilator Delphi nie ostrzega o duplikacie stałej nazwy (byłoby to bardzo pomocne)?
Czy jest coś, co mogę zrobić, aby włączyć ostrzeżenia (nie wygląda to w ten sposób).

Answer 1

Z powodu Delphi udokumentowane reguły scoping. Z Języka Przewodnik:

Kolejność, w jakiej pojawiają się jednostki klauzuli uses określa kolejność ich inicjowania i wpływa na sposób identyfikatory się przez kompilator. Jeśli dwie jednostki zadeklarują zmienną, stałą, typ , procedurę lub funkcję o tej samej nazwie, kompilator używa wartości z jednostki wymienionej jako ostatnia w klauzuli uses. (Aby uzyskać dostęp do identyfikatora z innej jednostki , trzeba by dodać kwalifikator. UnitName.Identifier) ​​

Jest to oczekiwane zachowanie od Turbo Pascal 4.0, która wprowadziła jednostek.