Changeset 37 for trunk/Application/UUser.pas

Timestamp:

Oct 30, 2010, 7:36:25 PM (14 years ago)

Author:

george

Message:

• Modified: TAssociativeArray replaced by specialized generic class TDictionaryStringString.
• Modified: All TObjectList replaced by specialized generic class TListObject.

File:

• trunk/Application/UUser.pas (modified) (2 diffs)

trunk/Application/UUser.pas

@@ -131 +131 @@
   DbRows := Database.Query('SELECT `Id` FROM `User` WHERE `Name`="' + Name + '"');
   try
-    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
+    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
       else raise ENotFound.Create('User "' + Name + '" not found');
   finally
@@ -145 +145 @@
     '`Password` = SHA1(CONCAT("' + Password + '", Salt))');
   try
-    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
+    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
       else raise ENotFound.Create('User "' + Name + '" not found');
   finally