- Correção de compilação para Lazarus para usar type helper ao invés de record helper

 - Mudança do Helper de base64 para RALTypes, por padronização do código
 - Ajuste de versionamento

Author: mobius1qwe

src/base/RALConsts.pas

@@ -13,7 +13,7 @@ interface
 
 const
   // Versionamento
-  RALVERSION = '0.11.0-16 alpha';
+  RALVERSION = '0.11.0-18 alpha';
   RALVERSION_MAJOR = 0;
   RALVERSION_MINOR = 11;
   RALVERSION_PATCH = 0;

src/base/RALTypes.pas

@@ -8,6 +8,9 @@
 interface
 
 {$I ..\base\PascalRAL.inc}
+{$IFDEF FPC}
+{$modeswitch typehelpers}
+{$ENDIF}
 
 uses
   {$IFDEF FPC}
@@ -59,6 +62,14 @@ interface
   TRALExecBehavior = (ebSingleThread, ebMultiThread);
   TRALDateTimeFormat = (dtfUnix, dtfISO8601, dtfCustom);
 
+  {$IF Defined(FPC) or Defined(DELPHIXE3UP)}
+  TRALBase64StringHelper = {$IFDEF FPC}type{$ELSE}record{$ENDIF} helper for StringRAL
+  public
+    function toBase64: StringRAL;
+    function fromBase64: StringRAL;
+  end;
+  {$IFEND}
+
 const
   {$IF Defined(FPC) OR Defined(DELPHIXE3UP)}
   POSINISTR = Low(String);
@@ -84,6 +95,9 @@ function ISO8601ToDate(const AValue: StringRAL): TDateTime;
 
 implementation
 
+uses
+  RALBase64;
+
 function RALHighStr(const AStr: StringRAL): integer;
 begin
   {$IF NOT Defined(FPC) AND NOT Defined(DELPHIXE3UP)}
@@ -151,4 +165,18 @@ function ISO8601ToDate(const AValue: StringRAL): TDateTime;
 end;
 {$IFEND}
 
+{ TRALBase64StringHelper }
+
+{$IF Defined(FPC) or defined(DELPHIXE3UP)}
+function TRALBase64StringHelper.fromBase64: StringRAL;
+begin
+  Result := TRALBase64.Decode(Self);
+end;
+
+function TRALBase64StringHelper.toBase64: StringRAL;
+begin
+  Result := TRALBase64.Encode(Self);
+end;
+{$IFEND}
+
 end.

src/utils/RALBase64.pas

@@ -37,14 +37,6 @@   TRALBase64 = class
     class function GetSizeDecode(ASize: Int64RAL): Int64RAL;
   end;
 
-  {$IF Defined(FPC) or Defined(DELPHIXE3UP)}
-  TRALBase64StringHelper = record helper for StringRAL
-  public
-    function toBase64: StringRAL;
-    function fromBase64: StringRAL;
-  end;
-  {$IFEND}
-
 implementation
 
 const
@@ -433,18 +425,4 @@ class function TRALBase64.EncodeAsStream(AValue: TStream): TStream;
   Result.Position := 0;
 end;
 
-{ TRALBase64StringHelper }
-
-{$IF Defined(FPC) or defined(DELPHIXE3UP)}
-function TRALBase64StringHelper.fromBase64: StringRAL;
-begin
-  Result := TRALBase64.Decode(Self);
-end;
-
-function TRALBase64StringHelper.toBase64: StringRAL;
-begin
-  Result := TRALBase64.Encode(Self);
-end;
-{$IFEND}
-
 end.