diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-04-27 10:24:34 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-04-27 10:24:34 +0000 |
| commit | 2202a88128ea55b4e142d169db924b9dea8a02f1 (patch) | |
| tree | 0e8e90c56b4c89d0a103960468fbe2e901b195a6 /Game | |
| parent | 09774cc6da566ac58aaff53fb1a12a2a79609afd (diff) | |
| download | usdx-2202a88128ea55b4e142d169db924b9dea8a02f1.tar.gz usdx-2202a88128ea55b4e142d169db924b9dea8a02f1.tar.xz usdx-2202a88128ea55b4e142d169db924b9dea8a02f1.zip | |
Removed misleading "var" parameters at ReadScore etc.: TSong is a class now, so parameters of this type are copied by reference -> no need to use "var" to prevent copying.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1038 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game')
| -rw-r--r-- | Game/Code/Classes/UDataBase.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Game/Code/Classes/UDataBase.pas b/Game/Code/Classes/UDataBase.pas index dcf32315..7469e8af 100644 --- a/Game/Code/Classes/UDataBase.pas +++ b/Game/Code/Classes/UDataBase.pas @@ -49,9 +49,9 @@ type Destructor Free; Procedure Init(const Filename: string); - procedure ReadScore(var Song: TSong); - procedure AddScore(var Song: TSong; Level: integer; Name: string; Score: integer); - procedure WriteScore(var Song: TSong); + procedure ReadScore(Song: TSong); + procedure AddScore(Song: TSong; Level: integer; Name: string; Score: integer); + procedure WriteScore(Song: TSong); Function GetStats(var Stats: AStatResult; const Typ, Count: Byte; const Page: Cardinal; const Reversed: Boolean): Boolean; Function GetTotalEntrys(const Typ: Byte): Cardinal; @@ -123,7 +123,7 @@ end; //-------------------- //ReadScore - Read Scores into SongArray //-------------------- -procedure TDataBaseSystem.ReadScore(var Song: TSong); +procedure TDataBaseSystem.ReadScore(Song: TSong); var TableData: TSqliteTable; Difficulty: Integer; @@ -175,7 +175,7 @@ end; //-------------------- //AddScore - Add one new Score to DB //-------------------- -procedure TDataBaseSystem.AddScore(var Song: TSong; Level: integer; Name: string; Score: integer); +procedure TDataBaseSystem.AddScore(Song: TSong; Level: integer; Name: string; Score: integer); var ID: Integer; TableData: TSqliteTable; @@ -216,7 +216,7 @@ end; //-------------------- //WriteScore - Not needed with new System; But used for Increment Played Count //-------------------- -procedure TDataBaseSystem.WriteScore(var Song: TSong); +procedure TDataBaseSystem.WriteScore(Song: TSong); begin if not assigned( ScoreDB ) then exit; |