From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 28 Apr 2010 19:54:31 +0000
Subject: - new SDL.dll (with a quick and dirty workaround for the
 hanging-mouse problem) - changing of sorting and folder-option (on/off) does
 not need any restart now - a lot of code clean up - some bugfixes... i
 hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UDataBase.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/Game/Code/Classes/UDataBase.pas b/Game/Code/Classes/UDataBase.pas
index b9b0773a..1233dae0 100644
--- a/Game/Code/Classes/UDataBase.pas
+++ b/Game/Code/Classes/UDataBase.pas
@@ -81,8 +81,6 @@ begin
   Result.P2m := 1;
   P1m := 0;
   P2m := 0;
-  P1c := 0;
-  P2c := 0;
 
   try
     P1c := ScoreDB.GetTableValue('SELECT COUNT(`SongID`) FROM `US_Scores` '+
@@ -362,7 +360,7 @@ end;
 procedure TDataBaseSystem.AddScore(var Song: TSong; Level: integer; Name: string; Score: integer; TimeStamp: integer);
 var
 ID: Integer;
-TableData: TSqliteTable;
+//TableData: TSqliteTable;
 begin
   //ScoreDB := TSqliteDatabase.Create(sFilename);
   try
@@ -535,4 +533,4 @@ begin
   Result := ScoreDB.GetTableValue(Query);
 end;
 
-end.
+end.
\ No newline at end of file
-- 
cgit v1.2.3