uses com apelido e seleção de nomes

program UsesAlias;
// Demo: `uses` com apelido (`as`) e seleção de nomes.
//   uses A as B           -> nada de A entra solto no escopo; tudo se acessa por B.Nome
//   uses A (T1, T2 as U)  -> só T1 e T2 entram no escopo (T2 com o nome U)
// Útil para evitar colisões: aqui o programa tem a sua própria Sum, e a do módulo continua acessível.

uses System.Remainder,
     Geometry as G,                      // G.Sum, G.Describe, G.TPoint
     Geometry (TPoint as TGeoPoint);     // só TPoint entra no escopo, com outro nome

// colide com Geometry.Sum se o módulo fosse usado sem apelido; assim, não há conflito
function Sum(A, B: Int32): Int32;
begin
  Exit(A * 100 + B);
end function;

var
  LPoint: TGeoPoint;                     // nome escolhido na seleção
  LOther: G.TPoint;                      // o mesmo tipo, pelo apelido
begin
  LPoint.X := 1;
  LOther.Y := 2;
  WriteLn('Sum do programa: ', Sum(1, 2));
  WriteLn('G.Sum do módulo: ', G.Sum(1, 2));
  WriteLn(G.Describe);
  WriteLn('X=', LPoint.X, ' Y=', LOther.Y);
end.

module Geometry;

// Módulo de apoio do demo 52. Sem seções interface/implementation: cada declaração
// diz se é `public` (visível a quem usa o módulo) ou `private` (omissão).
// Os nomes Sum, Describe e TPoint colidem de propósito com os do programa.

public type
  TPoint = record
  public
    X, Y: Int32;
  end record;

public function Sum(A, B: Int32): Int32;
begin
  Exit(A + B);
end;

public function Describe: UString;
begin
  Exit('módulo Geometry');
end;

end.