Build 1.4.4.118 - Fixed #29

Author: bomrafinha

README.md

@@ -5,7 +5,7 @@
 <br />
 
 ![Maintenance](https://img.shields.io/maintenance/yes/2020)
-![Build](https://img.shields.io/badge/Build-1.0.0.0-brightgreen) 
+![Build](https://img.shields.io/badge/Build-1.4.4.118-brightgreen) 
 ![GitHub release (latest by date)](https://img.shields.io/github/v/release/bomrafinha/SortingAlgorithms)
 ![GitHub Release Date](https://img.shields.io/github/release-date/bomrafinha/SortingAlgorithms)
 ![Github repo age](https://img.shields.io/github/issues/detail/age/bomrafinha/SortingAlgorithms/1.svg?style=flat-square)
@@ -182,7 +182,7 @@ A declaração de métodos deve ocorrer sempre dentro dos modificadores de acess
 
 Métodos devem ser *camelCase*.
 
-Os parâmetros do método devem ser *camelCase*.
+Os parâmetros do método devem ser *camelCase* iniciando com "a".
 
 Procurar, quando possível, usar prefixos *get*, *set*, *eh*, etc de acordo com a função do método e/ou seu retorno.
 
@@ -225,6 +225,12 @@ Separar declações de variáveis, métodos, construtores, destrutores e proprie
 
 ![Identação](documentation/images/padrao_identacao_01.png)
 
+#### Chamada de métodos e variaveis internas da classe
+
+Devem ser precedidas da palavra reservada *Self*, para facilitar a leitura do código.
+
+![Self](documentation/images/padrao_self_01.png)
+
 #### Palavras Reservadas
 Dá-se preferência ao uso de iniciais minúsculas para palavras reservadas. Porém isso não é uma regra para o projeto tendo em vista que por serem reservadas a IDE às sinaliza, não atrapalhando, assim, a leitura do código.
 
@@ -240,10 +246,6 @@ Dá-se preferência ao uso de iniciais minúsculas para palavras reservadas. Por
 + Estrutura básica do código
 
 + Algoritmos
-  - Bubble Sort
-  - Insertion Sort
-  - Selection Sort
-  - Comb Sort
   - Bogo Sort
   - Merge Sort
   - Heap Sort
@@ -275,6 +277,7 @@ SortingAlgorithms
 │       ├── padrao_interfaces.png
 │       ├── padrao_metodos.png
 │       ├── padrao_propriedades.png
+│       ├── padrao_self_01.png
 │       ├── padrao_variaveis_locais.png
 │       ├── padrao_variaveis_privadas.png
 │       ├── project_issue.png

documentation/images/padrao_metodos.png

@@ -7,35 +7,20 @@ interface
 type
   TSortBubble = class(TSortClass, ISortInterface)
   private
-    procedure algoritmo(); Override;
-
-  public
-    constructor Create(layout01 : TLayout);
-
-    procedure sort();
+    function algoritmo() : Boolean; Override;
 
   end;
 
 implementation
 
 { TSortBubble }
 
-constructor TSortBubble.Create(layout01: TLayout);
-begin
-  inherited Create(layout01);
-
-end;
-
-procedure TSortBubble.sort;
-begin
-  inherited sort();
-end;
-
-procedure TSortBubble.algoritmo();
+function TSortBubble.algoritmo() : Boolean;
 var
   i, j : Integer;
 
 begin
+  Result := False;
   for i := 48 downto 0 do
   begin
     for j := 0 to i do
@@ -47,6 +32,8 @@ procedure TSortBubble.algoritmo();
     end;
   end;
 
+  Result := True;
+
 end;
 
 end.

documentation/images/padrao_self_01.png

@@ -7,36 +7,20 @@ interface
 type
   TSortComb = class(TSortClass, ISortInterface)
   private
-    procedure algoritmo(); Override;
-
-  public
-    constructor Create(layout01 : TLayout);
-
-    procedure sort();
+    function algoritmo() : Boolean; Override;
 
   end;
 
 implementation
 
 { TSortComb }
 
-constructor TSortComb.Create(layout01: TLayout);
-begin
-  inherited Create(layout01);
-
-end;
-
-procedure TSortComb.sort;
-begin
-  inherited sort();
-
-end;
-
-procedure TSortComb.algoritmo();
+function TSortComb.algoritmo() : Boolean;
 var
   i, gap, tamanho : Integer;
 
 begin
+  Result := False;
   tamanho := 50;
   gap := trunc(tamanho / 1.3);
   while ((gap > 0) and  (i <> tamanho - 1)) do
@@ -52,6 +36,7 @@ procedure TSortComb.algoritmo();
     end;
     gap := Trunc(gap / 1.3);
   end;
+  Result := True;
 
 end;
 

modules/BubbleSort/U_Sort.Bubble.pas

@@ -7,37 +7,21 @@ interface
 type
   TSortInsertion = class(TSortClass, ISortInterface)
   private
-    procedure algoritmo(); Override;
-
-  public
-    constructor Create(layout01 : TLayout);
-
-    procedure sort();
+    function algoritmo() : Boolean; Override;
 
   end;
 
 implementation
 
 { TSortInsertion }
 
-constructor TSortInsertion.Create(layout01: TLayout);
-begin
-  inherited Create(layout01);
-
-end;
-
-procedure TSortInsertion.sort;
-begin
-  inherited sort();
-
-end;
-
-procedure TSortInsertion.algoritmo();
+function TSortInsertion.algoritmo() : Boolean;
 var
   i, j : Integer;
   key : Single;
 
 begin
+  Result := False;
   for j := 1 to 49 do
   begin
     key := findRectangle(j).Height;
@@ -51,6 +35,7 @@ procedure TSortInsertion.algoritmo();
 
     end;
   end;
+  Result := True;
 end;
 
 end.

modules/CombSort/U_Sort.Comb.pas

@@ -7,36 +7,20 @@ interface
 type
   TSortSelection = class(TSortClass, ISortInterface)
   private
-    procedure algoritmo(); Override;
-
-  public
-    constructor Create(layout01 : TLayout);
-
-    procedure sort();
+    function algoritmo() : Boolean; Override;
 
   end;
 
 implementation
 
 { TSortSelection }
 
-constructor TSortSelection.Create(layout01: TLayout);
-begin
-  inherited Create(layout01);
-
-end;
-
-procedure TSortSelection.sort;
-begin
-  inherited sort();
-
-end;
-
-procedure TSortSelection.algoritmo();
+function TSortSelection.algoritmo() : Boolean;
 var
   i, j, min : Integer;
 
 begin
+  Result := False;
   for i := 0 to 48 do
   begin
     min := i;
@@ -49,6 +33,7 @@ procedure TSortSelection.algoritmo();
     end;
     troca(findRectangle(min), findRectangle(i));
   end;
+  Result := True;
 end;
 
 end.

modules/InsertionSort/U_Sort.Insertion.pas

@@ -298,11 +298,13 @@
         <DCC_DcuOutput>../output</DCC_DcuOutput>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1046</VerInfo_Locale>
-        <VerInfo_Build>60</VerInfo_Build>
+        <VerInfo_Build>105</VerInfo_Build>
         <VerInfo_Debug>true</VerInfo_Debug>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
-        <VerInfo_Keys>CompanyName=Bomrafinha;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.60;InternalName=SortingAlgorithms;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=Bomrafinha;FileDescription=$(MSBuildProjectName);FileVersion=1.4.4.105;InternalName=SortingAlgorithms;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <DCC_UnitSearchPath>../app;../output;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <VerInfo_MinorVer>4</VerInfo_MinorVer>
+        <VerInfo_Release>4</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>