diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-02 16:43:05 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-02 16:43:05 +0000 |
| commit | fffe085266382cfcaeed4b600f4d6bb104bfa38d (patch) | |
| tree | 9a55c9eea579af04dc3fabc4e970973388ee4954 /Game/Code/Classes/UDataBase.pas | |
| parent | 97b5f227669651bc71328296e95df386a31ddf7b (diff) | |
| download | usdx-fffe085266382cfcaeed4b600f4d6bb104bfa38d.tar.gz usdx-fffe085266382cfcaeed4b600f4d6bb104bfa38d.tar.xz usdx-fffe085266382cfcaeed4b600f4d6bb104bfa38d.zip | |
- replaced some DebugWriteln() with Log.Log...()
- added LogFileLevel to be able to control which log-messages are written to the log-file (Error.log)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1053 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UDataBase.pas')
| -rw-r--r-- | Game/Code/Classes/UDataBase.pas | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Game/Code/Classes/UDataBase.pas b/Game/Code/Classes/UDataBase.pas index 7469e8af..3954f92e 100644 --- a/Game/Code/Classes/UDataBase.pas +++ b/Game/Code/Classes/UDataBase.pas @@ -65,6 +65,7 @@ implementation uses IniFiles, ULog, + StrUtils, SysUtils; const @@ -77,7 +78,7 @@ const Procedure TDataBaseSystem.Init(const Filename: string); begin - debugWriteln( 'TDataBaseSystem.Init ('+Filename+') @ '+ floattostr( now() ) ); + Log.LogStatus('Initializing database: "'+Filename+'"', 'TDataBaseSystem.Init'); //Open Database ScoreDB := TSqliteDatabase.Create( Filename ); @@ -103,8 +104,10 @@ begin finally - debugWriteln( cUS_Songs +' Exist : ' + inttostr( integer(ScoreDB.TableExists( cUS_Songs )) ) ); - debugWriteln( cUS_Scores +' Exist : ' + inttostr( integer(ScoreDB.TableExists( cUS_Scores )) ) ); + Log.LogInfo( cUS_Songs +' exists: ' + IfThen(ScoreDB.TableExists(cUS_Songs), 'true', 'false'), + 'TDataBaseSystem.Init'); + Log.LogInfo( cUS_Scores +' exists: ' + IfThen(ScoreDB.TableExists(cUS_Scores), 'true', 'false'), + 'TDataBaseSystem.Init'); //ScoreDB.Free; end; |