Changeset 316 for trunk/UTCP.pas

Timestamp:

Jun 19, 2024, 11:53:06 PM (4 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UTCP.pas (modified) (4 diffs)

trunk/UTCP.pas

@@ -1 +1 @@
 unit UTCP;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -46 +44 @@
     procedure Execute; override;
   end;
-
 
   { TTCPServer }
@@ -124 +121 @@
 begin
   Active := False;
-  FSocket.Free;
-  inherited Destroy;
+  DestroyFSocket);
+  inherited;
 end;
 
@@ -169 +166 @@
   ThreadPool.Destroy;
   Active := False;
-  inherited Destroy;
+  inherited;
 end;