--- oup/current/FileClasses/_MetaManager.pas 2007/06/29 12:38:24 233 +++ oup/current/FileClasses/_MetaManager.pas 2007/11/26 11:02:28 248 @@ -6,12 +6,12 @@ uses _MetaTypes; type TMetaManager = class protected - FFiles: array of TFile; + FFiles: array of TResource; FRoot: TExtensions; FConnectionID: Integer; FDataAccess: TObject; function GetFileCount: Integer; - function GetFileById(Id: Integer): TFile; + function GetFileById(Id: Integer): TResource; private public constructor Create(ConnectionID: Integer; DataAccess: TObject); @@ -20,7 +20,7 @@ type property Root: TExtensions read FRoot; property FileCount: Integer read GetFileCount; - property FileById[Id: Integer]: TFile read GetFileById; + property FileById[Id: Integer]: TResource read GetFileById; end; implementation @@ -40,7 +40,7 @@ begin end; -function TMetaManager.GetFileById(Id: Integer): TFile; +function TMetaManager.GetFileById(Id: Integer): TResource; begin InitFile(Id); Result := FFiles[Id]; @@ -63,15 +63,15 @@ begin finfo := ConManager.Connection[FConnectionID].GetFileInfo(id); if finfo.Size > 0 then begin - for typei := 0 to High(FileDescs) do + for typei := 0 to High(ResourceDescs) do begin - if FileDescs[typei].ext = finfo.Extension then + if ResourceDescs[typei].ext = finfo.Extension then begin - FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id); + FFiles[id] := TResourceClass(ResourceDescs[typei].ftype).Create(FConnectionID, id); Break; end; end; - if typei > High(FileDescs) then + if typei > High(ResourceDescs) then FFiles[id] := TFile_Empty.Create(FConnectionID, id); end else FFiles[id] := TFile_Empty.Create(FConnectionID, id);