Changeset 248 for oup/current/FileClasses/_MetaTypes.pas

Timestamp:

Nov 26, 2007, 12:02:28 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_MetaTypes.pas (modified) (3 diffs)

oup/current/FileClasses/_MetaTypes.pas

@@ -18 +18 @@
 type
   TTreeElement = _TreeElement.TTreeElement;
-  TFile = _FileTypes.TFile;
+  TResource = _FileTypes.TResource;
   TFile_Empty = _EmptyFile.TFile_Empty;
   TExtension = _Extensions.TExtension;
@@ -28 +28 @@
   TArray = _DataTypes.TArray;
 
-  TFileID = _DataTypes.TFileID;
+  TResourceID = _DataTypes.TResourceID;
   TLevelID = _DataTypes.TLevelID;
   TInt = _DataTypes.TInt;
@@ -39 +39 @@
   TUnused = _DataTypes.TUnused;
 
-  TFileClass = class of TFile;
-  TFileDesc = record
+  TResourceClass = class of TResource;
+  TResourceDesc = record
     ext: String;
-    ftype: TFileClass;
+    ftype: TResourceClass;
   end;
 
 const
-  FileDescs: array[0..5] of TFileDesc = (
+  ResourceDescs: array[0..5] of TResourceDesc = (
     (ext: 'AKEV'; ftype: TFile_AKEV),
     (ext: 'AKVA'; ftype: TFile_AKVA),