fcl-net: fixed typo

nohup.out

@@ -0,0 +1,3 @@
+_IceTransSocketUNIXConnect: Cannot connect to non-local host ubuntu1804
+_IceTransSocketUNIXConnect: Cannot connect to non-local host ubuntu1804
+Qt: Session management error: Could not open network socket

packages/fcl-net/src/ssockets.pp

@@ -14,7 +14,6 @@
 
 unit ssockets;
 
-
 interface
 
 uses
@@ -210,7 +209,7 @@ type
   Public
     Procedure Bind; Override;
     Constructor Create(APort: Word);
-    Constructor Create(const aHost: string; const APort: Word; AHAndler : TSocketHandler = Nil);
+    Constructor Create(const aHost: string; const APort: Word; AHandler : TSocketHandler = Nil);
     Property Port : Word Read FPort;
     Property Host : string Read FHost;
   end;
@@ -274,7 +273,6 @@ type
   end;
 {$endif}
 
-
 Implementation
 
 uses
@@ -849,7 +847,7 @@ begin
   Result:=fpSetSockOpt(FSocket,ALevel,AOptName,@optval,optlen)<>-1;
 end;
 
-Function TInetServer.GetConnection : TSocketStream;
+function TInetServer.GetConnection: TSocketStream;
 
 var
   NewSocket : longint;
@@ -903,7 +901,7 @@ begin
           Stream:=Nil;
         if Assigned(Stream) then
           begin
-          Inc (NoConnections);
+          Inc(NoConnections);
           DoConnect(Stream);
           end;
       except
@@ -1050,13 +1048,14 @@ end;
     TInetServer
   ---------------------------------------------------------------------}
 
-Constructor TInetServer.Create(APort: Word);
+constructor TInetServer.Create(APort: Word);
 
 begin
   Create('0.0.0.0', aPort);
 end;
 
-Constructor TInetServer.Create(const aHost: string; const APort: Word; AHAndler : TSocketHandler = Nil);
+constructor TInetServer.Create(const aHost: string; const APort: Word;
+  AHandler: TSocketHandler);
 
 Var S : longint;
 
@@ -1069,7 +1068,7 @@ begin
   Inherited Create(S,AHandler);
 end;
 
-Procedure TInetServer.Bind;
+procedure TInetServer.Bind;
 
 begin
   Faddr.sin_family := AF_INET;
@@ -1080,7 +1079,7 @@ begin
   FBound:=True;
 end;
 
-Function  TInetServer.SockToStream (ASocket : Longint) : TSocketStream;
+function TInetServer.SockToStream(ASocket: Longint): TSocketStream;
 Var
   H : TSocketHandler;
   A : Boolean;
@@ -1107,7 +1106,7 @@ begin
     ShutDownH;
 end;
 
-Function TInetServer.Accept : Longint;
+function TInetServer.Accept: Longint;
 
 Var
   L : longint;