исправление имен модулей
This commit is contained in:
+1
-1
@@ -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
|
||||
|
||||
@@ -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
@@ -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;
|
||||
|
||||
@@ -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
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user