исправление имен модулей

This commit is contained in:
PC1\PTyTb
2025-09-11 08:37:27 +03:00
parent 1c35ea61f0
commit 951b4fa2eb
31 changed files with 41 additions and 38 deletions
+1 -1
View File
@@ -3,7 +3,7 @@ unit uKeyEvent;
interface
uses
System.SysUtils, System.Types, Windows, System.Classes, System.UITypes,
System.SysUtils, System.Types, winapi.Windows, System.Classes, System.UITypes,
FMX.Types, FMX.Edit, FMX.Controls, FMX.Forms, FMX.Platform, FMX.ListBox;
type
+2 -2
View File
@@ -3,8 +3,8 @@ unit uPlayerThread;
interface
uses
Classes, SysUtils, SyncObjs, Generics.Collections, bass_simple,
System.IOUtils, Types;
System.Classes, System.SysUtils, System.SyncObjs, System.Generics.Collections, bass_simple,
System.IOUtils, System.Types;
type
TOnError = procedure(const Msg, FileName: string) of object;
+3 -3
View File
@@ -104,8 +104,8 @@ interface
{$IFDEF FPC} {$DEFINE OverMeth} {$ENDIF}
uses
Classes, // TStrings in Split method
SysUtils; // Exception
system.Classes, // TStrings in Split method
system.SysUtils; // Exception
type
{$IFDEF UniCode}
@@ -639,7 +639,7 @@ function RegExprSubExpressions (const ARegExpr : string;
implementation
uses
Windows; // CharUpper/Lower
winapi.Windows; // CharUpper/Lower
const
TRegExprVersionMajor : integer = 0;
+1 -1
View File
@@ -2,7 +2,7 @@ unit uSoundManager;
interface
uses classes, ShellAPI, bass_simple, windows, System.SysUtils;
uses System.classes, winapi.ShellAPI, bass_simple, winapi.windows, System.SysUtils;
type
TSongMachine = class(TObject)
+1 -1
View File
@@ -3,7 +3,7 @@ unit uTTS;
interface
uses
Windows, SysUtils, Classes, MMSystem;
winapi.Windows, System.SysUtils, System.Classes, winapi.MMSystem;
type
TPlayFinishedEvent = procedure(Sender: TObject) of object;
+1 -1
View File
@@ -2,7 +2,7 @@ unit uWebServerChat;
interface
uses classes, StrUtils, DateUtils, System.JSON, System.Generics.Collections,
uses System.classes, System.StrUtils, System.DateUtils, System.JSON, System.Generics.Collections,
IdBaseComponent, IdComponent, IdCustomTCPServer, IdContext,
IdCustomHTTPServer, uRecords, System.IOUtils, IdGlobalProtocols,
IdHTTPServer, System.SysUtils;
+2 -2
View File
@@ -3,10 +3,10 @@ unit uWebServerEvents;
interface
uses
Classes, StrUtils, DateUtils, System.JSON, System.Generics.Collections,
System.Classes, System.StrUtils, System.DateUtils, System.JSON, System.Generics.Collections,
IdBaseComponent, IdComponent, IdCustomTCPServer, IdContext,
IdCustomHTTPServer, uRecords, System.IOUtils, IdGlobalProtocols,
IdHTTPServer, System.SysUtils, SyncObjs;
IdHTTPServer, System.SysUtils, System.SyncObjs;
type
TTTW_Events = class(TObject)
+1 -1
View File
@@ -4,7 +4,7 @@ interface
uses
System.SysUtils, System.Classes, System.JSON, System.Generics.Collections,
IdHTTPServer, IdCustomHTTPServer, IdContext, IdComponent, NetEncoding, IOUtils;
IdHTTPServer, IdCustomHTTPServer, IdContext, IdComponent, System.NetEncoding, System.IOUtils;
type
TGameWebServer = class
+1 -1
View File
@@ -6,7 +6,7 @@ uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants, System.NetEncoding,IdContext, IdCustomHTTPServer, IdHTTPServer, IdGlobal,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
FMX.Controls.Presentation, FMX.StdCtrls, uKandinskyAPI, FMX.Memo.Types, json,
FMX.Controls.Presentation, FMX.StdCtrls, uKandinskyAPI, FMX.Memo.Types, System.json,
FMX.ScrollBox, FMX.Memo, System.IOUtils, System.SyncObjs,System.DateUtils;
type