Changeset 279 for branches/web/UNews.pas


Ignore:
Timestamp:
Mar 5, 2010, 8:52:50 PM (14 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/UNews.pas

    r158 r279  
    1616    Title: string;
    1717    Permission: Integer;
    18     procedure LoadFromDbRecord(DbRow: TAssocArray);
     18    procedure LoadFromDbRecord(DbRow: TAssociativeArray);
    1919    procedure Store;
    2020  end;
    … …  
    3030    IPAddress: string;
    3131    Category: Integer;
    32     procedure LoadFromDbRecord(DbRow: TAssocArray);
     32    procedure LoadFromDbRecord(DbRow: TAssociativeArray);
    3333    procedure Store;
    3434  end;
    … …  
    4949
    5050uses
    51   URSS, pwmain, dateutils;
     51  URSS, dateutils;
    5252
    5353{ TNewsItem }
    5454
    55 procedure TNewsItem.LoadFromDbRecord(DbRow: TAssocArray);
     55procedure TNewsItem.LoadFromDbRecord(DbRow: TAssociativeArray);
    5656begin
    5757  Id := StrToInt(DbRow.Values['id']);
    … …  
    6666procedure TNewsItem.Store;
    6767var
    68   Values: TAssocArray;
    69 begin
    70   Values := TAssocArray.Create;
     68  Values: TAssociativeArray;
     69begin
     70  Values := TAssociativeArray.Create;
    7171  Values.AddKeyValue('content', Content);
    7272  Values.AddKeyValue('title', Title);
    … …  
    112112*)
    113113
    114   if GetCgiVar('select') = '' then Select := '' else Select := GetCgiVar('select');
     114  //if GetCgiVar('select') = '' then Select := '' else Select := GetCgiVar('select');
    115115  SelectParts := Explode('-', Select);
    116116  Where := '';
    … …  
    182182{ TNewsCategory }
    183183
    184 procedure TNewsCategory.LoadFromDbRecord(DbRow: TAssocArray);
     184procedure TNewsCategory.LoadFromDbRecord(DbRow: TAssociativeArray);
    185185begin
    186186  Id := StrToInt(DbRow.Values['id']);
    … …  
    191191procedure TNewsCategory.Store;
    192192var
    193   Values: TAssocArray;
    194 begin
    195   Values := TAssocArray.Create;
     193  Values: TAssociativeArray;
     194begin
     195  Values := TAssociativeArray.Create;
    196196  Values.AddKeyValue('permission', IntToStr(Permission));
    197197  Values.AddKeyValue('title', Title);
Note: See TracChangeset for help on using the changeset viewer.