From 99955c78f63d1cb0d8bec666bc33953590a74c8a Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 1 Nov 2007 23:22:01 +0000
Subject: 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
---
 Game/Code/Classes/USongs.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Classes/USongs.pas')

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);
-- 
cgit v1.2.3