Changeset 279 for branches/web/UUser.pas


Ignore:
Timestamp:
Mar 5, 2010, 8:52:50 PM (15 years ago)
Author:
george
Message:
  • Upraveno: Aktualizována třída TSqlDatabase.
  • Upraveno: Binární sestavené soubory se nyní vytváří v podsložce bin.
Location:
branches/web
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/web

    • Property svn:ignore

      •  

        old new  
        33*.o
        44backup
        5 
        65index.cgi
        7 
        86index.compiled
        9 
        107UConfig.pas
         8bin

  • branches/web/UUser.pas

    r158 r279  
    2626    IC: Integer;
    2727    DIC: string;
    28     procedure LoadFromDbRecord(DbRow: TAssocArray);
     28    procedure LoadFromDbRecord(DbRow: TAssociativeArray);
    2929    procedure Store;
    3030  end;
    … …  
    4141{ TUser }
    4242
    43 procedure TUser.LoadFromDbRecord(DbRow: TAssocArray);
     43procedure TUser.LoadFromDbRecord(DbRow: TAssociativeArray);
    4444begin
    4545  Id := StrToInt(DbRow.Values['id']);
    … …  
    5454procedure TUser.Store;
    5555var
    56   Values: TAssocArray;
     56  Values: TAssociativeArray;
    5757begin
    58   Values := TAssocArray.Create;
     58  Values := TAssociativeArray.Create;
    5959  Values.AddKeyValue('second_name', SecondName);
    6060  Values.AddKeyValue('first_name', FirstName);
Note: See TracChangeset for help on using the changeset viewer.