IndySockets · JPeterMugaas · Nov 21, 2024 · Nov 23, 2024
diff --git a/Lib/Core/IdAboutVCL.pas b/Lib/Core/IdAboutVCL.pas
@@ -1,9 +1,9 @@
 unit IdAboutVCL;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
 {$IFDEF WIDGET_KYLIX}
   QStdCtrls, QForms, QExtCtrls, QControls, QComCtrls, QGraphics, Qt,

diff --git a/Lib/Core/IdAntiFreeze.pas b/Lib/Core/IdAntiFreeze.pas
@@ -51,10 +51,10 @@
     restriction.
 }
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdAntiFreezeBase;

diff --git a/Lib/Core/IdCmdTCPClient.pas b/Lib/Core/IdCmdTCPClient.pas
@@ -94,11 +94,10 @@
   Original author: Sergio Perry
   Description: TCP client that uses CommandHandlers
 }
+{$I IdCompilerDefines.inc}
 
 interface
 
-{$I IdCompilerDefines.inc}
-
 uses
   IdContext,
   IdException,

diff --git a/Lib/Core/IdCmdTCPServer.pas b/Lib/Core/IdCmdTCPServer.pas
@@ -150,11 +150,11 @@
 
 unit IdCmdTCPServer;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
 uses
   Classes,
   IdCommandHandlers,

diff --git a/Lib/Core/IdCommandHandlers.pas b/Lib/Core/IdCommandHandlers.pas
@@ -137,11 +137,12 @@
 	Separate Unit  : Sergio Perry
 }
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
+
 uses
   Classes,
   IdComponent, IdReply, IdGlobal,

diff --git a/Lib/Core/IdContext.pas b/Lib/Core/IdContext.pas
@@ -64,10 +64,10 @@
 
 unit IdContext;
 
-interface
-
 {$i IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdSocketHandle, IdTCPConnection, IdTask, IdYarn, IdThreadSafe,

diff --git a/Lib/Core/IdCoreDsnRegister.pas b/Lib/Core/IdCoreDsnRegister.pas
@@ -33,10 +33,10 @@
 
 unit IdCoreDsnRegister;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   {$IFDEF DOTNET}
   Borland.Vcl.Design.DesignIntF,

diff --git a/Lib/Core/IdCustomTCPServer.pas b/Lib/Core/IdCustomTCPServer.pas
@@ -248,12 +248,11 @@
   Original Author and Maintainer:
   - Chad Z. Hower a.k.a Kudzu
 }
-
-interface
-
 {$I IdCompilerDefines.inc}
 //here to flip FPC into Delphi mode
 
+interface
+
 uses
   Classes,
   {$IFDEF HAS_UNIT_Generics_Collections}

diff --git a/Lib/Core/IdCustomTransparentProxy.pas b/Lib/Core/IdCustomTransparentProxy.pas
@@ -59,11 +59,12 @@
 
 unit IdCustomTransparentProxy;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //we need to put this in Delphi mode to work
 
+interface
+
+
 uses
   Classes,
   IdComponent,

diff --git a/Lib/Core/IdDsnPropEdBinding.pas b/Lib/Core/IdDsnPropEdBinding.pas
@@ -76,11 +76,10 @@
   TODO:  Maybe there might be a way to find the location in a more elegant
   manner than what I described.
 }
+{$I IdCompilerDefines.inc}
 
 interface
 
-{$I IdCompilerDefines.inc}
-
 {$IFDEF WIDGET_WINFORMS}
 {$R 'IdDsnPropEdBindingNET.TIdDsnPropEdBindingNET.resources' 'IdDsnPropEdBindingNET.resx'}
 {$ENDIF}

diff --git a/Lib/Core/IdDsnPropEdBindingVCL.pas b/Lib/Core/IdDsnPropEdBindingVCL.pas
@@ -56,10 +56,10 @@
 
 unit IdDsnPropEdBindingVCL;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
 {$IFDEF WIDGET_KYLIX}

diff --git a/Lib/Core/IdExceptionCore.pas b/Lib/Core/IdExceptionCore.pas
@@ -86,9 +86,11 @@
 
 unit IdExceptionCore;
 
-interface
 {$I IdCompilerDefines.inc}
 //needed to put FCP into Delphi mode
+
+interface
+
 uses
   IdException, IdStack;
 

diff --git a/Lib/Core/IdGlobalCore.pas b/Lib/Core/IdGlobalCore.pas
@@ -28,10 +28,10 @@
 
 unit IdGlobalCore;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdGlobal;

diff --git a/Lib/Core/IdIOHandler.pas b/Lib/Core/IdIOHandler.pas
@@ -396,10 +396,10 @@
 
 unit IdIOHandler;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdException,

diff --git a/Lib/Core/IdIOHandlerSocket.pas b/Lib/Core/IdIOHandlerSocket.pas
@@ -138,10 +138,10 @@
 
 unit IdIOHandlerSocket;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdCustomTransparentProxy,

diff --git a/Lib/Core/IdIOHandlerStack.pas b/Lib/Core/IdIOHandlerStack.pas
@@ -177,10 +177,10 @@
 
 unit IdIOHandlerStack;
 
-interface
-
 {$i IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdGlobal, IdSocketHandle, IdIOHandlerSocket, IdExceptionCore, IdStack,

diff --git a/Lib/Core/IdIOHandlerStream.pas b/Lib/Core/IdIOHandlerStream.pas
@@ -114,10 +114,10 @@
 
 unit IdIOHandlerStream;
 
-interface
-
 {$I IdCompilerDefines.inc}
 
+interface
+
 uses
   Classes,
   IdBaseComponent,

diff --git a/Lib/Core/IdIPAddress.pas b/Lib/Core/IdIPAddress.pas
@@ -61,11 +61,11 @@
 
 unit IdIPAddress;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //we need to put this in Delphi mode to work
 
+interface
+
 uses
   Classes,
   IdGlobal;

diff --git a/Lib/Core/IdIPMCastBase.pas b/Lib/Core/IdIPMCastBase.pas
@@ -33,11 +33,12 @@
 
 unit IdIPMCastBase;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //here to flip FPC into Delphi mode
 
+interface
+
+
 uses
   {$IFDEF WORKAROUND_INLINE_CONSTRUCTORS}
   Classes,

diff --git a/Lib/Core/IdIPMCastClient.pas b/Lib/Core/IdIPMCastClient.pas
@@ -39,11 +39,11 @@
 
 unit IdIPMCastClient;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
 uses
   Classes,
   IdException,

diff --git a/Lib/Core/IdIPMCastServer.pas b/Lib/Core/IdIPMCastServer.pas
@@ -51,11 +51,11 @@
   Dr. Harley J. Mackenzie, Initial revision.
 }
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
 uses
   IdComponent,
   IdGlobal,

diff --git a/Lib/Core/IdIcmpClient.pas b/Lib/Core/IdIcmpClient.pas
@@ -67,11 +67,11 @@
 
 // SG 25/1/02: Modified the component to support multithreaded PING and traceroute
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
 uses
   Classes,
   IdGlobal,

diff --git a/Lib/Core/IdIntercept.pas b/Lib/Core/IdIntercept.pas
@@ -61,11 +61,11 @@
 
 unit IdIntercept;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //here only to put FPC in Delphi mode
 
+interface
+
 uses
   Classes,
   IdGlobal, IdBaseComponent, IdException;

diff --git a/Lib/Core/IdInterceptSimLog.pas b/Lib/Core/IdInterceptSimLog.pas
@@ -48,9 +48,9 @@
 
   TODO: Can also change it to detect several EOLs and non binary and use :Lines:x
 }
+{$i IdCompilerDefines.inc}
 
 interface
-{$i IdCompilerDefines.inc}
 
 uses
   Classes,

diff --git a/Lib/Core/IdInterceptThrottler.pas b/Lib/Core/IdInterceptThrottler.pas
@@ -36,9 +36,10 @@
 
 unit IdInterceptThrottler;
 
-interface
 {$i IdCompilerDefines.inc}
 
+interface
+
 uses
   IdComponent, IdIntercept, IdGlobal;
 

diff --git a/Lib/Core/IdLogBase.pas b/Lib/Core/IdLogBase.pas
@@ -36,11 +36,11 @@
 
 unit IdLogBase;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
 uses
   Classes,
   IdIntercept, IdGlobal, IdBaseComponent;

diff --git a/Lib/Core/IdLogDebug.pas b/Lib/Core/IdLogDebug.pas
@@ -33,9 +33,11 @@
 
 unit IdLogDebug;
 
-interface
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
+
+interface
+
 uses
   IdLogBase;
 

diff --git a/Lib/Core/IdLogEvent.pas b/Lib/Core/IdLogEvent.pas
@@ -27,11 +27,12 @@
 
 unit IdLogEvent;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
+
 uses
   IdLogBase, Classes;
 

diff --git a/Lib/Core/IdLogFile.pas b/Lib/Core/IdLogFile.pas
@@ -59,11 +59,12 @@
 
 unit IdLogFile;
 
-interface
-
 {$I IdCompilerDefines.inc}
 //Put FPC into Delphi mode
 
+interface
+
+
 uses
   Classes,
   IdLogBase;