aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UPlatformWindows.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UPlatformWindows.pas19
1 files changed, 11 insertions, 8 deletions
diff --git a/Game/Code/Classes/UPlatformWindows.pas b/Game/Code/Classes/UPlatformWindows.pas
index c7965761..1786d6cc 100644
--- a/Game/Code/Classes/UPlatformWindows.pas
+++ b/Game/Code/Classes/UPlatformWindows.pas
@@ -12,6 +12,17 @@ uses Classes, UPlatform;
type
+ TPlatform = class(TInterfacedObject, IPlatform)
+ public
+ Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
+ end;
+
+implementation
+
+uses SysUtils, Windows;
+
+type
+
TSearchRecW = record
Time: Integer;
Size: Integer;
@@ -22,14 +33,6 @@ type
FindData: TWin32FindDataW;
end;
- TPlatform = class(TInterfacedObject, IPlatform)
- public
- Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
- end;
-
-implementation
-
-uses SysUtils, Windows;
function FindFirstW(const Path: widestring; Attr: Integer; var F: TSearchRecW): Integer;
const