[commons] new simple function helpers

Author: exilon

Quick.Commons.pas

@@ -1,4 +1,4 @@
-{ ***************************************************************************
+{ ***************************************************************************
 
   Copyright (c) 2016-2021 Kike P�rez
 
@@ -256,6 +256,16 @@   TDateTimeHelper = record helper for TDateTime
     function IsAM : Boolean;
     function IsPM : Boolean;
   end;
+
+  TDateHelper = record helper for TDate
+  public
+    function ToString : string;
+  end;
+
+  TTimeHelper = record helper for TTime
+  public
+    function ToString : string;
+  end;
   {$ENDIF}
 
   EEnvironmentPath = class(Exception);
@@ -2314,6 +2324,18 @@ function TDateTimeHelper.IsPM : Boolean;
 begin
   Result := System.DateUtils.IsPM(Self);
 end;
+
+{ TDateHelper }
+function TDateHelper.ToString : string;
+begin
+  Result := DateToStr(Self);
+end;
+
+{ TTimeHelper }
+function TTimeHelper.ToString : string;
+begin
+  Result := TimeToStr(Self);
+end;
 {$ENDIF}
 
 {$IFNDEF NEXTGEN}

Quick.Crypto.pas

@@ -30,10 +30,8 @@
 
 interface
 
-uses
-
-function AES128_Encrypt(Value, Password: string): string;
-function AES128_Decrypt(Value, Password: string): string;
+function AES128_Encrypt(const Value, Password: string): string;
+function AES128_Decrypt(const Value, Password: string): string;
 
 implementation
 
@@ -130,7 +128,7 @@ function __AES128_DeriveKeyFromPassword(m_hProv: HCRYPTPROV; Password: string):
   end;
 end;
 
-function AES128_Encrypt(Value, Password: string): string;
+function AES128_Encrypt(const Value, Password: string): string;
 var
   hCProv: HCRYPTPROV;
   hKey: HCRYPTKEY;
@@ -164,7 +162,7 @@ function AES128_Encrypt(Value, Password: string): string;
   end;
 end;
 
-function AES128_Decrypt(Value, Password: string): string;
+function AES128_Decrypt(const Value, Password: string): string;
 var
   hCProv: HCRYPTPROV;
   hKey: HCRYPTKEY;