Changeset 229 for oup/current/DataAccess


Ignore:
Timestamp:
Jun 20, 2007, 12:57:51 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current/DataAccess
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/DataAccess/Access_OUP_ADB.pas

    r173 r229  
    113113
    114114  UpdateListCache;
     115
     116  inherited;
    115117end;
    116118
  • oup/current/DataAccess/Access_OniArchive.pas

    r209 r229  
    161161  FConnectionID := ConnectionID;
    162162  FChangeRights := [CR_EditDat, CR_EditRaw, CR_AppendRaw];
     163
     164  inherited;
    163165end;
    164166
  • oup/current/DataAccess/DataAccess.pas

    r227 r229  
    2525    property MetaData:     TMetaManager read FMeta;
    2626
    27     constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
     27    constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual;
    2828    procedure Close; virtual; abstract;
    2929
     
    7676*)
    7777
     78constructor TDataAccess.Create(FileName: String; ConnectionID: Integer;
     79  var Msg: TStatusMessages);
     80begin
     81  FMeta := TMetaManager.Create(FConnectionID, Self);
     82end;
     83
     84
     85
    7886function TDataAccess.ExtractFileIDOfName(Name: String): Integer;
    7987begin
Note: See TracChangeset for help on using the changeset viewer.