From 1495d0dab6dd7dd702d043c305760b8600d4609f Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Wed, 20 Aug 2008 22:44:48 +0000 Subject: DebugWriteln change to Log.LogError + minor format adjustments. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1280 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UPlatformMacOSX.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Game') diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas index a774186f..68acae25 100644 --- a/Game/Code/Classes/UPlatformMacOSX.pas +++ b/Game/Code/Classes/UPlatformMacOSX.pas @@ -10,6 +10,7 @@ interface uses Classes, + ULog, UPlatform; type @@ -193,16 +194,16 @@ begin until (FindNext(SearchInfo) <> 0); end; FindClose(SearchInfo); - DirectoryIsFinished := succ(DirectoryIsFinished); + inc(DirectoryIsFinished); until (DirectoryIsFinished = DirectoryList.Count); // create missing folders if not ForceDirectories(UserPathName) then - DebugWriteln('Error: Failed to create the folder: ', UserPathName); + Log.LogError('Error: Failed to create the folder: ', UserPathName); for counter := 0 to DirectoryList.Count-1 do if not ForceDirectories(UserPathName + '/' + DirectoryList[counter]) then - DebugWriteln('Error: Failed to create the folder: ', UserPathName + '/' + DirectoryList[counter]); + Log.LogError('Error: Failed to create the folder: ', UserPathName + '/' + DirectoryList[counter]); DirectoryList.Free(); // copy missing files -- cgit v1.2.3