Refatoração dos namespaces dos projetos

Author: AndreLuisCelestino

FactoryMethod-AndreCelestino/FactoryMethod.dpr

@@ -2,16 +2,17 @@ program FactoryMethod;
 
 uses
   Forms,
-  uTela in 'uTela.pas' {fTela},
-  uTipoPrazos in 'uTipoPrazos.pas',
-  uInterfaces in 'uInterfaces.pas',
-  uFabricaPrazos in 'uFabricaPrazos.pas';
+  View.Formulario in 'View.Formulario.pas' {fFormulario},
+  Pattern.Product in 'Pattern.Product.pas',
+  Pattern.Creator in 'Pattern.Creator.pas',
+  Pattern.ConcreteProduct in 'Pattern.ConcreteProduct.pas',
+  Pattern.ConcreteCreator in 'Pattern.ConcreteCreator.pas';
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.Title := 'Exemplo de Factory Method';
-  Application.CreateForm(TfTela, fTela);
+  Application.CreateForm(TfFormulario, fFormulario);
   Application.Run;
 end.

FactoryMethod-AndreCelestino/FactoryMethod.dproj

@@ -7,7 +7,7 @@
         <TargetedPlatforms>1025</TargetedPlatforms>
         <AppType>Application</AppType>
         <FrameworkType>VCL</FrameworkType>
-        <ProjectVersion>18.0</ProjectVersion>
+        <ProjectVersion>18.2</ProjectVersion>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@@ -18,6 +18,11 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
         <CfgParent>Base</CfgParent>
@@ -66,6 +71,12 @@
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <VerInfo_Locale>1033</VerInfo_Locale>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
@@ -91,17 +102,19 @@
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <VerInfo_Locale>1033</VerInfo_Locale>
+        <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="uTela.pas">
-            <Form>fTela</Form>
+        <DCCReference Include="View.Formulario.pas">
+            <Form>fFormulario</Form>
         </DCCReference>
-        <DCCReference Include="uTipoPrazos.pas"/>
-        <DCCReference Include="uInterfaces.pas"/>
-        <DCCReference Include="uFabricaPrazos.pas"/>
+        <DCCReference Include="Pattern.Product.pas"/>
+        <DCCReference Include="Pattern.Creator.pas"/>
+        <DCCReference Include="Pattern.ConcreteProduct.pas"/>
+        <DCCReference Include="Pattern.ConcreteCreator.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

FactoryMethod-AndreCelestino/FactoryMethod.res

@@ -1,9 +1,9 @@
-unit uFabricaPrazos;
+unit Pattern.ConcreteCreator;
 
 interface
 
 uses
-  uInterfaces;
+  Pattern.Creator, Pattern.Product;
 
 type
   TFabricaPrazos = class(TInterfacedObject, IFactoryMethod)
@@ -13,7 +13,7 @@   TFabricaPrazos = class(TInterfacedObject, IFactoryMethod)
 implementation
 
 uses
-  uTipoPrazos;
+  Pattern.ConcreteProduct;
 
 { TFabricaPrazos }
 

FactoryMethod-AndreCelestino/uFabricaPrazos.pas FactoryMethod-AndreCelestino/Pattern.ConcreteCreator.pas

@@ -1,11 +1,12 @@
-unit uTipoPrazos;
+unit Pattern.ConcreteProduct;
 
 interface
 
 uses
-  uInterfaces;
+  Pattern.Product;
 
 type
+  { Concrete Product }
   // classe que implementa a Interface ITipoPrazo
   // e servirá como classe base para os tipos de prazos
   TTipoPrazo = class(TInterfacedObject, ITipoPrazo)

FactoryMethod-AndreCelestino/uTipoPrazos.pas FactoryMethod-AndreCelestino/Pattern.ConcreteProduct.pas

@@ -0,0 +1,16 @@
+unit Pattern.Creator;
+
+interface
+
+uses
+  Pattern.Product;
+
+type
+  { Creator }
+  IFactoryMethod = interface
+    function ConsultarPrazo(const Prazo: string): ITipoPrazo;
+  end;
+
+implementation
+
+end.

FactoryMethod-AndreCelestino/Pattern.Creator.pas

@@ -1,19 +1,16 @@
-unit uInterfaces;
+unit Pattern.Product;
 
 interface
 
 type
+  { Product }
   ITipoPrazo = interface
     function ConsultarDescricao: string;
     function ConsultarJuros: string;
     function ConsultarProjecao(const Valor: real; const QtdeParcelas: integer): string;
     function ConsultarTotal: string;
   end;
 
-  IFactoryMethod = interface
-    function ConsultarPrazo(const Prazo: string): ITipoPrazo;
-  end;
-
 implementation
 
 end.

FactoryMethod-AndreCelestino/uInterfaces.pas FactoryMethod-AndreCelestino/Pattern.Product.pas

@@ -1,4 +1,4 @@
-object fTela: TfTela
+object fFormulario: TfFormulario
   Left = 193
   Top = 125
   BorderIcons = [biSystemMenu, biMinimize]

FactoryMethod-AndreCelestino/uTela.dfm FactoryMethod-AndreCelestino/View.Formulario.dfm

@@ -1,4 +1,4 @@
-unit uTela;
+unit View.Formulario;
 
 {
   Exemplo de Chain of Factory Method com Delphi
@@ -12,7 +12,8 @@ interface
   Dialogs, StdCtrls, Buttons;
 
 type
-  TfTela = class(TForm)
+  { Client }
+  TfFormulario = class(TForm)
     ComboBoxPrazoPagamento: TComboBox;
     EditValor: TEdit;
     LabelValor: TLabel;
@@ -27,16 +28,16 @@   TfTela = class(TForm)
   end;
 
 var
-  fTela: TfTela;
+  fFormulario: TfFormulario;
 
 implementation
 
 uses
-  System.UITypes, uInterfaces, uFabricaPrazos;
+  System.UITypes, Pattern.Product, Pattern.Creator, Pattern.ConcreteCreator;
 
 {$R *.dfm}
 
-procedure TfTela.BitBtnGerarProjecaoClick(Sender: TObject);
+procedure TfFormulario.BitBtnGerarProjecaoClick(Sender: TObject);
 var
   FabricaPrazos: IFactoryMethod;
   TipoPrazo: ITipoPrazo;
@@ -68,13 +69,13 @@ procedure TfTela.BitBtnGerarProjecaoClick(Sender: TObject);
   Memo.Lines.Add(TipoPrazo.ConsultarTotal);
 end;
 
-procedure TfTela.EditValorKeyPress(Sender: TObject; var Key: Char);
+procedure TfFormulario.EditValorKeyPress(Sender: TObject; var Key: Char);
 begin
   if not (CharInSet(Key, ['0'..'9', #8, #44])) then
     Key := #0;
 end;
 
-procedure TfTela.EditQtdeParcelasKeyPress(Sender: TObject; var Key: Char);
+procedure TfFormulario.EditQtdeParcelasKeyPress(Sender: TObject; var Key: Char);
 begin
   if not (CharInSet(Key, ['0'..'9', #8])) then
     Key := #0;