Replace Funct by Func

Author: Zeus64

Source/Alcinoe.FMX.ErrorReporting.pas

@@ -20,8 +20,8 @@   TALErrorReporting = class
     class var FInstance: TALErrorReporting;
   public
     type
-      TCreateInstanceFunct = function: TALErrorReporting;
-    class var CreateInstanceFunct: TCreateInstanceFunct;
+      TCreateInstanceFunc = function: TALErrorReporting;
+    class var CreateInstanceFunc: TCreateInstanceFunc;
     class property Instance: TALErrorReporting read GetInstance;
   public
     constructor Create; virtual;
@@ -65,7 +65,7 @@ class function TALErrorReporting.CreateInstance: TALErrorReporting;
 class function TALErrorReporting.GetInstance: TALErrorReporting;
 begin
   if FInstance = nil then begin
-    var LInstance := CreateInstanceFunct;
+    var LInstance := CreateInstanceFunc;
     if AtomicCmpExchange(Pointer(FInstance), Pointer(LInstance), nil) <> nil then ALFreeAndNil(LInstance)
   end;
   Result := FInstance;
@@ -90,7 +90,7 @@ procedure TALErrorReporting.CustomLogException(Const Tag: String; Const E: Excep
 
 initialization
   TALErrorReporting.FInstance := nil;
-  TALErrorReporting.CreateInstanceFunct := @TALErrorReporting.CreateInstance;
+  TALErrorReporting.CreateInstanceFunc := @TALErrorReporting.CreateInstance;
 
 finalization
   ALFreeAndNil(TALErrorReporting.FInstance);

Source/Alcinoe.FMX.Graphics.pas

@@ -367,8 +367,8 @@   TALGraphicThreadPool = class(TALWorkerThreadPool)
     class var FInstance: TALGraphicThreadPool;
   public
     type
-      TCreateInstanceFunct = function: TALGraphicThreadPool;
-    class var CreateInstanceFunct: TCreateInstanceFunct;
+      TCreateInstanceFunc = function: TALGraphicThreadPool;
+    class var CreateInstanceFunc: TCreateInstanceFunc;
     class property Instance: TALGraphicThreadPool read GetInstance;
   public
     procedure ExecuteProc(
@@ -10297,7 +10297,7 @@ class function TALGraphicThreadPool.CreateInstance: TALGraphicThreadPool;
 class function TALGraphicThreadPool.GetInstance: TALGraphicThreadPool;
 begin
   if FInstance = nil then begin
-    var LInstance := CreateInstanceFunct;
+    var LInstance := CreateInstanceFunc;
     if AtomicCmpExchange(Pointer(FInstance), Pointer(LInstance), nil) <> nil then ALFreeAndNil(LInstance)
   end;
   Result := FInstance;
@@ -10373,7 +10373,7 @@ procedure TALGraphicThreadPool.ExecuteProc(
 
 initialization
   TALGraphicThreadPool.FInstance := nil;
-  TALGraphicThreadPool.CreateInstanceFunct := @TALGraphicThreadPool.CreateInstance;
+  TALGraphicThreadPool.CreateInstanceFunc := @TALGraphicThreadPool.CreateInstance;
 
 finalization
   ALFreeAndNil(TALGraphicThreadPool.FInstance);

Source/Alcinoe.FMX.NotificationService.pas

@@ -153,8 +153,8 @@   TALNotificationService = class(TObject)
     class var FInstance: TALNotificationService;
   public
     type
-      TCreateInstanceFunct = function: TALNotificationService;
-    class var CreateInstanceFunct: TCreateInstanceFunct;
+      TCreateInstanceFunc = function: TALNotificationService;
+    class var CreateInstanceFunc: TCreateInstanceFunc;
     class property Instance: TALNotificationService read GetInstance;
   public
     type
@@ -500,7 +500,7 @@ class function TALNotificationService.CreateInstance: TALNotificationService;
 class function TALNotificationService.GetInstance: TALNotificationService;
 begin
   if FInstance = nil then begin
-    var LInstance := CreateInstanceFunct;
+    var LInstance := CreateInstanceFunc;
     if AtomicCmpExchange(Pointer(FInstance), Pointer(LInstance), nil) <> nil then ALFreeAndNil(LInstance)
   end;
   Result := FInstance;
@@ -985,7 +985,7 @@ procedure TALNotificationService.UserNotificationCenterRequestAuthorizationWithO
 initialization
   TALNotificationService.TmpPath := '';
   TALNotificationService.FInstance := nil;
-  TALNotificationService.CreateInstanceFunct := @TALNotificationService.CreateInstance;
+  TALNotificationService.CreateInstanceFunc := @TALNotificationService.CreateInstance;
 
 finalization
   ALFreeAndNil(TALNotificationService.FInstance);

Source/Alcinoe.HTTP.Client.Net.Pool.pas

@@ -54,8 +54,8 @@ interface
     class var FInstance: TALNetHttpClientPool;
   public
     type
-      TCreateInstanceFunct = function: TALNetHttpClientPool;
-    class var CreateInstanceFunct: TCreateInstanceFunct;
+      TCreateInstanceFunc = function: TALNetHttpClientPool;
+    class var CreateInstanceFunc: TCreateInstanceFunc;
     class property Instance: TALNetHttpClientPool read GetInstance;
   private
     FCacheData: TALNetHttpClientPoolCacheDataProc;
@@ -170,7 +170,7 @@ class function TALNetHttpClientPool.CreateInstance: TALNetHttpClientPool;
 class function TALNetHttpClientPool.GetInstance: TALNetHttpClientPool;
 begin
   if FInstance = nil then begin
-    var LInstance := CreateInstanceFunct;
+    var LInstance := CreateInstanceFunc;
     if AtomicCmpExchange(Pointer(FInstance), Pointer(LInstance), nil) <> nil then ALFreeAndNil(LInstance)
   end;
   Result := FInstance;
@@ -413,7 +413,7 @@ procedure TALNetHttpClientPool.Get(
 
 initialization
   TALNetHttpClientPool.FInstance := nil;
-  TALNetHttpClientPool.CreateInstanceFunct := @TALNetHttpClientPool.CreateInstance;
+  TALNetHttpClientPool.CreateInstanceFunc := @TALNetHttpClientPool.CreateInstance;
 
 finalization
   ALFreeAndNil(TALNetHttpClientPool.FInstance);