diff options
| author | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-08 21:21:20 +0000 |
|---|---|---|
| committer | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-08 21:21:20 +0000 |
| commit | b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b (patch) | |
| tree | c01ab0bb5eb6b9c8dd438e424c88af7883edbbf9 | |
| parent | 5b4785d36f83f3361f89b33c84839591969d24a6 (diff) | |
| download | usdx-b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b.tar.gz usdx-b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b.tar.xz usdx-b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b.zip | |
Move the TSearchRecW record to the implementation part. This should fix the compilation error.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@598 b956fd51-792f-4845-bead-9b4dfca2ff2c
| -rw-r--r-- | Game/Code/Classes/UPlatformWindows.pas | 19 |
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
|