Changeset 112 for oup/current/Global/TypeDefs.pas

Timestamp:

Feb 22, 2007, 1:37:39 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/TypeDefs.pas (modified) (4 diffs)

oup/current/Global/TypeDefs.pas

@@ -23 +23 @@
   ); 
 
+  THeader = packed record
+    Ident:      array[0..$13] of Byte;
+    Files:      Integer;
+    NamedFiles: Integer;
+    Extensions: Integer;
+    DataAddr:   Integer;
+    DataSize:   Integer;
+    NamesAddr:  Integer;
+    NamesSize:  Integer;
+    Ident2:     array[0..$F] of Byte;
+  end;
+  TFilesMap = array of packed record
+    Extension: array[0..$3] of Char;
+    DataAddr:  Integer;
+    NameAddr:  Integer;
+    FileSize:  Integer;
+    FileType:  LongWord;
+  end;
+  TNamedFilesMap = array of packed record
+    FileNumber: Integer;
+    blubb:      Integer;
+  end;
+
+        TTypeIdent = array[0..7] of Byte;
+        TFileType = record
+                Extension:   String[4];
+                StructID:    Integer;
+    Description: String;
+                IdentWin:    TTypeIdent;
+    IdentMac:    TTypeIdent;
+        end;
+
   TExtensionsMap = array of packed record
-      Ident:       array[0..$7] of Byte;
+      Ident:       TTypeIdent;
       Extension:   array[0..$3] of Char;
       ExtCount:    Integer;
@@ -54 +86 @@
       ST_NameDesc,
       ST_ExtAsc,
-      ST_ExtDesc
+      ST_ExtDesc,
+      ST_ExtNameAsc,
+      ST_ExtNameDesc
   );
 
@@ -67 +101 @@
       DatPath:        String[250];
       ExtractPath:    String[250];
-      FilenumbersAsHex: Boolean;
       CharSet:        TFontCharSet;
       HideUnusedData: Boolean;
@@ -90 +123 @@
       ByID: array of TLinkByID;
   end;
-
+ 
 {
   TLevelInfo = record