From b2a203f519a2a4d13ffdad2cedb9fcfa2d07db8b Mon Sep 17 00:00:00 2001 From: eddie-0815 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/Code') 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