Changeset 37 for trunk/Application


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UUser.pas

    r36 r37  
    131131  DbRows := Database.Query('SELECT `Id` FROM `User` WHERE `Name`="' + Name + '"');
    132132  try
    133     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
     133    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
    134134      else raise ENotFound.Create('User "' + Name + '" not found');
    135135  finally
    … …  
    145145    '`Password` = SHA1(CONCAT("' + Password + '", Salt))');
    146146  try
    147     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
     147    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
    148148      else raise ENotFound.Create('User "' + Name + '" not found');
    149149  finally
Note: See TracChangeset for help on using the changeset viewer.