Renames GetInstance to Instance

Author: Roberto Schneiders

delphi/PusherClient/PusherClient.pas

@@ -28,7 +28,7 @@   TPusherClient = class
     procedure Log(Message: string);
     procedure ConnectionStateChange(Message: string);
   public
-    class function GetInstance(): TPusherClient;
+    class function Instance(): TPusherClient;
     procedure Connect(Key: string; CustomHost: string = ''; Options: TConnectionOptions = [coUseSSL]);
     procedure Disconnect();
     procedure Subscribe(Channel, EventName: String; Callback: TCallbackProcedure);
@@ -46,20 +46,20 @@ implementation
 
 procedure OnLogStdCall(Message: pchar); stdcall;
 begin
-  TPusherClient.GetInstance.Log(StrPas(Message));
+  TPusherClient.Instance.Log(StrPas(Message));
 end;
 
 procedure OnErrorStdCall(message: pchar); stdcall;
 begin
-  TPusherClient.GetInstance.Error(StrPas(Message));
+  TPusherClient.Instance.Error(StrPas(Message));
 end;
 
 procedure OnSubscribeEventStdCall(Channel: pchar; EventName: pchar; Message: pchar); stdcall;
 var
   ErrorMessage: string;
 begin
   try
-    TPusherClient.GetInstance.FSubscribed[StrPas(Channel)][StrPas(EventName)](StrPas(Message));
+    TPusherClient.Instance.FSubscribed[StrPas(Channel)][StrPas(EventName)](StrPas(Message));
   except
     on E:Exception do
     begin
@@ -68,15 +68,15 @@ procedure OnSubscribeEventStdCall(Channel: pchar; EventName: pchar; Message: pch
         + sLineBreak + '[Channel][Event]: Message: [%s][%s]: [%s]'
         + sLineBreak + 'Error: [%s]',
         [StrPas(Channel), StrPas(EventName), StrPas(Message), E.Message]);
-      TPusherClient.GetInstance.Error(ErrorMessage);
-      TPusherClient.GetInstance.Log(ErrorMessage);
+      TPusherClient.Instance.Error(ErrorMessage);
+      TPusherClient.Instance.Log(ErrorMessage);
     end;
   end;
 end;
 
 procedure OnConnectionStateChangeStdCall(message: pchar); stdcall;
 begin
-  TPusherClient.GetInstance.ConnectionStateChange(StrPas(Message));
+  TPusherClient.Instance.ConnectionStateChange(StrPas(Message));
 end;
 
 procedure TPusherClient.Connect(Key, CustomHost: string; Options: TConnectionOptions);
@@ -110,7 +110,7 @@ procedure TPusherClient.Disconnect;
   PusherClientNative.Disconnect;
 end;
 
-class function TPusherClient.GetInstance: TPusherClient;
+class function TPusherClient.Instance: TPusherClient;
 begin
   if not Assigned(Self.FInstance) then
     self.FInstance := TPusherClient.Create;

delphi/example/example.pas

@@ -113,7 +113,7 @@ procedure TPusherClientExampleForm.Error(Message: string);
 
 procedure TPusherClientExampleForm.InitializePusherClient;
 begin
-  PusherClient := TPusherClient.GetInstance;
+  PusherClient := TPusherClient.Instance;
   PusherClient.OnError := procedure(Message: string)
     begin
       Error('[ERROR]: ' + Message);