fixed failed builds

  build:USDX-LAZLIN-75 
  build:USDX-LAZLIN-76

for some reason we can not use {$MODE Delphi} in an 
included file.  

( Probably because of the way the compier scopes this switch to each pas file )

ive had to revert this part of eddies changes.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@548 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 7 insertions, 2 deletions

diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas
index 9e0d6ca5..614363c8 100644
--- a/Game/Code/Classes/USongs.pas
+++ b/Game/Code/Classes/USongs.pas
@@ -2,6 +2,10 @@ unit USongs;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses SysUtils,
@@ -225,8 +229,10 @@ begin
         ADirent := ReadDir(TheDir);
         
         if ( ADirent <> Nil                    ) AND
-           ( pos( '.txt', ADirent^.name ) > -1 ) then
+           ( pos( '.txt', ADirent^.name ) > 0 ) then
         begin
+          writeln ('***** FOUND TXT' +  ADirent^.name );
+        
           SLen := BrowsePos;
 
           Song[SLen].Path     := Dir;
@@ -244,7 +250,6 @@ begin
 
           //Change Length Only every 50 Entrys
           Inc(BrowsePos);
-
           if (BrowsePos mod 50 = 0) AND (BrowsePos <> 0) then
           begin
               SetLength(Song, Length(Song) + 50);