From b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 8 Nov 2007 21:21:20 +0000
Subject: 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
---
 Game/Code/Classes/UPlatformWindows.pas | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'Game')

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
@@ -10,6 +10,17 @@ interface
 
 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
@@ -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
-- 
cgit v1.2.3