aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UPlatform.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/Game/Code/Classes/UPlatform.pas b/Game/Code/Classes/UPlatform.pas
index d3227611..2c0fc6ee 100644
--- a/Game/Code/Classes/UPlatform.pas
+++ b/Game/Code/Classes/UPlatform.pas
@@ -18,17 +18,17 @@ uses Classes;
type
TDirectoryEntry = Record
Name : WideString;
- IsDirectory : Boolean;
- IsFile : Boolean;
+ IsDirectory : boolean;
+ IsFile : boolean;
end;
- TDirectoryEntryArray = Array of TDirectoryEntry;
+ TDirectoryEntryArray = array of TDirectoryEntry;
- IPlatform = Interface
+ IPlatform = interface
['{63A5EBC3-3F4D-4F23-8DFB-B5165FCA23DF}']
- Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
- function TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
- function FindSongFile(Dir, Mask: widestring): widestring;
+ function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : boolean) : TDirectoryEntryArray;
+ function TerminateIfAlreadyRunning(var WndTitle : string) : boolean;
+ function FindSongFile(Dir, Mask: WideString): WideString;
procedure Halt;
function GetLogPath : WideString;
function GetGameSharedPath : WideString;
@@ -60,7 +60,7 @@ var
function Platform : IPlatform;
begin
- result := Platform_singleton;
+ result := Platform_singleton;
end;