Неоднозначности с модулями

[megachuhancer]

Имеется следующий код:

program UnitsTests1;
{$APPTYPE CONSOLE}
{$o-}
uses
  UnitsTests1_1 in 'UnitsTests1_1.pas',
  UnitsTests1_2 in 'UnitsTests1_2.pas';

var
   a : integer;

begin
   a := 1;
   UnitsTests1_1.a := 2;
   b := 3;//почему этот код не вызывает ошибки?
   UnitsTests1_2.b := 5;
   UnitsTests1_1.b := 4;
end.


unit UnitsTests1_1;

interface

var
   a, b : integer;

implementation

initialization
   b := 0;

end.


unit UnitsTests1_2;

interface

var
   b : integer;

implementation

end.

Собственно, вопрос: почему этот код не вызывает ошибки? Разве не должна возникнуть неоднозначность с использованием переменной b?

[Stilet]

А потому что по умолчанию переменные берутся либо из текушего либо из последнего в списке uses.
В данном случае строка

b := 3;//почему этот код не вызывает ошибки?

Эквивалентна

 UnitsTests1_2.b := 3;

Поменяй местами

uses
  UnitsTests1_2 in 'UnitsTests1_2.pas',
  UnitsTests1_1 in 'UnitsTests1_1.pas';

и b:=3 будет использоваться из UnitsTests1_1

[megachuhancer]

Спасибо.__