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/UDatabase.pas

    r158 r279  
    2020    FDatabase: TDatabase;
    2121    FId: Integer;
    22     FRow: TAssocArray;
    23     procedure WriteProperty(Instance: TDbObject; PropInfo: PPropInfo; Data: TAssocArray; Depth: Integer);
     22    FRow: TAssociativeArray;
     23    procedure WriteProperty(Instance: TDbObject; PropInfo: PPropInfo; Data: TAssociativeArray; Depth: Integer);
    2424    procedure DeleteProperty(Instance: TDbObject; PropInfo: PPropInfo);
    2525    procedure DestroyProperty(Instance: TDbObject; PropInfo: PPropInfo; Depth: Integer);
    26     procedure ReadProperty(Instance: TObject; PropInfo: PPropInfo; Data: TAssocArray; Depth: Integer);
     26    procedure ReadProperty(Instance: TObject; PropInfo: PPropInfo; Data: TAssociativeArray; Depth: Integer);
    2727    function SearchPropertyByPointer(P: Pointer): string;
    2828  public
    … …  
    3333    procedure LoadById(Id: Integer; Depth: Integer = 1);
    3434    procedure Load(Depth: Integer = 1);
    35     procedure LoadFromRow(Row: TAssocArray; Depth: Integer = 1);
     35    procedure LoadFromRow(Row: TAssociativeArray; Depth: Integer = 1);
    3636    destructor Destroy(Depth: Integer = 100); virtual;
    3737    property Database: TDatabase read FDatabase write FDatabase;
    … …  
    126126{ TDbObject }
    127127
    128 procedure TDbObject.WriteProperty(Instance: TDbObject; PropInfo: PPropInfo; Data: TAssocArray; Depth: Integer);
     128procedure TDbObject.WriteProperty(Instance: TDbObject; PropInfo: PPropInfo; Data: TAssociativeArray; Depth: Integer);
    129129var
    130130  PropType: PTypeInfo;
    … …  
    259259
    260260
    261 procedure TDbObject.ReadProperty(Instance: TObject; PropInfo: PPropInfo; Data: TAssocArray; Depth: Integer);
     261procedure TDbObject.ReadProperty(Instance: TObject; PropInfo: PPropInfo; Data: TAssociativeArray; Depth: Integer);
    262262const
    263263  NilMethod: TMethod = (Code: nil; Data: nil);
    … …  
    434434procedure TDbObject.Store(Depth: Integer = 1);
    435435var
    436   Data: TAssocArray;
     436  Data: TAssociativeArray;
    437437  I, Count: Integer;
    438438  PropInfo: PPropInfo;
    … …  
    442442  LogMessage('Write class: ' + Self.ClassName);
    443443  if Depth >= 0 then begin
    444   Data := TAssocArray.Create;
     444  Data := TAssociativeArray.Create;
    445445  if Self.ClassInfo = nil then raise Exception.Create('Trida '+Self.ClassName+' neposkytuje RTTI informace!');
    446446  Count := GetTypeData(Self.ClassInfo)^.PropCount;
    … …  
    585585var
    586586  I: Integer;
    587   Data: TAssocArray;
     587  Data: TAssociativeArray;
    588588begin
    589589  if Depth >= 0 then begin
    … …  
    592592  FDatabase.Delete(Self.ClassName, 'ListId='+IntToStr(FId));
    593593  if Self.ClassName = 'tmeasurepointsetlist' then LogMessage('d');
    594   Data := TAssocArray.Create;
     594  Data := TAssociativeArray.Create;
    595595  Data.AddKeyValue('ListId', IntToStr(FId));
    596596  Data.AddKeyValue('ItemId', '0');
    … …  
    617617begin
    618618  inherited;
    619   inherited OnError := HandleError;
    620619end;
    621620
    … …  
    626625end;
    627626
    628 procedure TDbObject.LoadFromRow(Row: TAssocArray; Depth: Integer = 1);
     627procedure TDbObject.LoadFromRow(Row: TAssociativeArray; Depth: Integer = 1);
    629628var
    630629  I, Count: Integer;
Note: See TracChangeset for help on using the changeset viewer.