Changeset 279 for branches/web/UBill.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/UBill.pas

    r158 r279  
    153153procedure TBill.Store;
    154154var
    155   Data: TAssocArray;
    156 begin
    157   Data := TAssocArray.Create;
     155  Data: TAssociativeArray;
     156begin
     157  Data := TAssociativeArray.Create;
    158158  Data.AddKeyValue('BillCode', BillCode);
    159159  Data.AddKeyValue('time_due', IntToStr(DateTimeToUnix(TimeDue)));
    … …  
    312312procedure TBillItem.Store;
    313313var
    314   DbRows: TDbRows;
    315   Data: TAssocArray;
    316 begin
    317   Data := TAssocArray.Create;
     314  Data: TAssociativeArray;
     315begin
     316  Data := TAssociativeArray.Create;
    318317  Data.AddKeyValue('Quantitiy', IntToStr(Quantity));
    319318  Data.AddKeyValue('Description', Description);
Note: See TracChangeset for help on using the changeset viewer.