Changeset 233 for oup/current/FileClasses

Timestamp:

Jun 29, 2007, 2:38:24 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• ABNA.pas (modified) (1 diff)
• AGDB.pas (modified) (1 diff)
• AGQC.pas (modified) (1 diff)
• AGQG.pas (modified) (1 diff)
• AGQM.pas (modified) (1 diff)
• AGQR.pas (modified) (1 diff)
• AISA.pas (modified) (1 diff)
• AITR.pas (modified) (1 diff)
• AIWA.pas (modified) (1 diff)
• AKAA.pas (modified) (1 diff)
• AKBA.pas (modified) (1 diff)
• AKBP.pas (modified) (1 diff)
• AKDA.pas (modified) (1 diff)
• AKEV.pas (modified) (1 diff)
• AKOT.pas (modified) (1 diff)
• AKVA.pas (modified) (1 diff)
• BINA.pas (modified) (1 diff)
• CBPI.pas (modified) (1 diff)
• CBPM.pas (modified) (1 diff)
• CONS.pas (modified) (1 diff)
• CRSA.pas (modified) (1 diff)
• DOOR.pas (modified) (1 diff)
• DPge.pas (modified) (1 diff)
• EDIA.pas (modified) (1 diff)
• ENVP.pas (modified) (1 diff)
• FILM.pas (modified) (1 diff)
• FXLR.pas (modified) (1 diff)
• GMAN.pas (modified) (1 diff)
• HPge.pas (modified) (1 diff)
• IDXA.pas (modified) (1 diff)
• IGHH.pas (modified) (1 diff)
• IGPA.pas (modified) (1 diff)
• IGPG.pas (modified) (1 diff)
• IGSA.pas (modified) (1 diff)
• IGSt.pas (modified) (1 diff)
• IPge.pas (modified) (1 diff)
• Impt.pas (modified) (1 diff)
• KeyI.pas (modified) (1 diff)
• M3GA.pas (modified) (1 diff)
• M3GM.pas (modified) (1 diff)
• M3TA.pas (modified) (1 diff)
• Mtrl.pas (modified) (1 diff)
• NMSA.pas (modified) (1 diff)
• OBAN.pas (modified) (1 diff)
• OBDC.pas (modified) (1 diff)
• OBLS.pas (modified) (1 diff)
• OBOA.pas (modified) (1 diff)
• OFGA.pas (modified) (1 diff)
• ONCC.pas (modified) (1 diff)
• ONCP.pas (modified) (1 diff)
• ONCV.pas (modified) (1 diff)
• ONFA.pas (modified) (1 diff)
• ONGS.pas (modified) (1 diff)
• ONIA.pas (modified) (1 diff)
• ONLD.pas (modified) (1 diff)
• ONLV.pas (modified) (1 diff)
• ONMA.pas (modified) (1 diff)
• ONOA.pas (modified) (1 diff)
• ONSA.pas (modified) (1 diff)
• ONSK.pas (modified) (1 diff)
• ONTA.pas (modified) (1 diff)
• ONVL.pas (modified) (1 diff)
• ONWC.pas (modified) (1 diff)
• OPge.pas (modified) (1 diff)
• OSBD.pas (modified) (1 diff)
• OTIT.pas (modified) (1 diff)
• OTLF.pas (modified) (1 diff)
• PLEA.pas (modified) (1 diff)
• PNTA.pas (modified) (1 diff)
• PSUI.pas (modified) (1 diff)
• PSpL.pas (modified) (1 diff)
• PSpc.pas (modified) (1 diff)
• QTNA.pas (modified) (1 diff)
• QUDA.pas (modified) (1 diff)
• SNDD.pas (modified) (1 diff)
• SUBT.pas (modified) (3 diffs)
• StNA.pas (modified) (1 diff)
• TMFA.pas (modified) (1 diff)
• TMRA.pas (modified) (1 diff)
• TRAC.pas (modified) (1 diff)
• TRAM.pas (modified) (1 diff)
• TRAS.pas (modified) (1 diff)
• TRBS.pas (modified) (1 diff)
• TRCM.pas (modified) (1 diff)
• TRFT.pas (modified) (1 diff)
• TRGA.pas (modified) (1 diff)
• TRGE.pas (modified) (1 diff)
• TRIA.pas (modified) (1 diff)
• TRIG.pas (modified) (1 diff)
• TRMA.pas (modified) (1 diff)
• TRSC.pas (modified) (1 diff)
• TRTA.pas (modified) (1 diff)
• TSFF.pas (modified) (1 diff)
• TSFL.pas (modified) (1 diff)
• TSFT.pas (modified) (1 diff)
• TSGA.pas (modified) (1 diff)
• TStr.pas (modified) (1 diff)
• TURR.pas (modified) (1 diff)
• TXAN.pas (modified) (2 diffs)
• TXCA.pas (modified) (1 diff)
• TXMA.pas (modified) (1 diff)
• TXMB.pas (modified) (1 diff)
• TXMP.pas (modified) (3 diffs)
• TXPC.pas (modified) (1 diff)
• TxtC.pas (modified) (1 diff)
• UUEA.pas (modified) (1 diff)
• UVDL.pas (modified) (1 diff)
• VCRA.pas (modified) (1 diff)
• WMCL.pas (modified) (1 diff)
• WMDD.pas (modified) (1 diff)
• WMMB.pas (modified) (1 diff)
• WMM_.pas (modified) (1 diff)
• WPge.pas (modified) (1 diff)
• _DataTypes.pas (modified) (8 diffs)
• _Extensions.pas (modified) (5 diffs)
• _FileTypes.pas (modified) (9 diffs)
• _MetaManager.pas (modified) (4 diffs)
• _MetaTypes.pas (modified) (2 diffs)
• _TreeElement.pas (added)

oup/current/FileClasses/ABNA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AGDB.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AGQC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AGQG.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AGQM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AGQR.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AISA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AITR.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AIWA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKAA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKBA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKBP.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKDA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKEV.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKOT.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/AKVA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/BINA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/CBPI.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/CBPM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/CONS.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/CRSA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/DOOR.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/DPge.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/EDIA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ENVP.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/FILM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/FXLR.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/GMAN.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/HPge.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IDXA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IGHH.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IGPA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IGPG.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IGSA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IGSt.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/IPge.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/Impt.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/KeyI.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/M3GA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/M3GM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/M3TA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/Mtrl.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/NMSA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OBAN.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OBDC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OBLS.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OBOA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OFGA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONCC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONCP.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONCV.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONFA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONGS.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONIA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONLD.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONLV.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONMA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONOA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONSA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONSK.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONTA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONVL.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/ONWC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OPge.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OSBD.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OTIT.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/OTLF.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/PLEA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/PNTA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/PSUI.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/PSpL.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/PSpc.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/QTNA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/QUDA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/SNDD.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/SUBT.pas

@@ -16 +16 @@
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls, Grids;
 
 procedure TFile_SUBT.InitDataFields;
@@ -42 +42 @@
     end;
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
@@ -47 +49 @@
 procedure TFile_SUBT.InitEditor;
 var
-  lab: TLabel;
+  grid: TStringGrid;
 begin
   FEditor := TFrame.Create(nil);
-  lab := TLabel.Create(FEditor);
-  lab.Left := 0;
-  lab.Top := 0;
-  lab.Caption := 'Hello World';
-  FEditor.InsertControl(lab);
+  grid := TStringGrid.Create(FEditor);
+  grid.Parent := FEditor;
 end;
 
 end.
-

oup/current/FileClasses/StNA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TMFA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TMRA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRAC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRAM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRAS.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRBS.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRCM.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRFT.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRGA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRGE.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRIA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRIG.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRMA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRSC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TRTA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TSFF.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TSFL.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TSFT.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TSGA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TStr.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TURR.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TXAN.pas

@@ -20 +20 @@
 var
   tempi: Integer;
+  arrargs: TArrayArgs;
 begin
   inherited;
@@ -44 +45 @@
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
-    tempi := 2;
-    with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
+    arrargs.CounterSize := 2;
+    arrargs.BlockLength := 4;
+    with AddField(TArray, $1C, 'AnimTextures array', '', @arrargs) do
     begin
       AddField(TLinkByID, $00, 'Texture', '', nil);
     end;
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TXCA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TXMA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TXMB.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TXMP.pas

@@ -16 +16 @@
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls, 
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls,
   Controls, Forms;
 
@@ -105 +105 @@
   end;
   templist.Free;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
@@ -137 +139 @@
 
 end.
-

oup/current/FileClasses/TXPC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/TxtC.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/UUEA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/UVDL.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/VCRA.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/WMCL.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/WMDD.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/WMMB.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/WMM_.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/WPge.pas

@@ -28 +28 @@
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-

oup/current/FileClasses/_DataTypes.pas

@@ -4 +4 @@
 
 uses
-  Classes;
+  Classes, _TreeElement;
 
 type
-  TDataField = class
+  TDataField = class(TTreeElement)
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
+      function GetCaption: String; override;
     protected
       FOffset: Integer;
@@ -36 +39 @@
     private
       FDataFields: array of TDataField;
+      FBlockLength: Integer;
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
       function GetFieldByOffset(Offset: Integer): TDataField;
-      function GetFieldByIndex(ID: Integer): TDataField;
-      function GetFieldCount: Integer;
-    public
-      // ExtraArgs: keine
+    public
+      // ExtraArgs: Pointer auf Integer: BlockLength
       constructor Create(ParentFile: TObject; ParentField: TDataField;
           Offset: Integer; Name, Description: String; ExtraArgs: Pointer); override;
       procedure Update(Offset, Length: Integer); override;
       property FieldByOffset[Offset: Integer]: TDataField read GetFieldByOffset;
-      property FieldByIndex[ID: Integer]: TDataField read GetFieldByIndex;
-      property FieldCount: Integer read GetFieldCount;
 
       function AddField(fieldtype: TFieldType; Offset: Integer;
@@ -103 +105 @@
 
   TLinkByID = class(TDataField)
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
     private
       FFileID: Integer;
@@ -127 +131 @@
 
 
+  TArrayArgs = packed record
+    CounterSize: Integer;
+    BlockLength: Integer;
+    BlockCount:  Integer;
+  end;
   TArray = class(TDataField)
     private
-      FDataFields: array of TDataField;
+      FDataFields: array of TBlock;
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
       function GetFieldByOffset(Offset: Integer): TDataField;
-      function GetFieldByIndex(ID: Integer): TDataField;
-      function GetFieldCount: Integer;
-    public
-      // ExtraArgs: Pointer auf 2 Integer: Length+Count (packed record...)
-      constructor Create(ParentFile: TObject; ParentField: TDataField;
-          Offset: Integer; Name, Description: String; ExtraArgs: Pointer); override;
-      procedure Update(Offset, Length: Integer); override;
-      property FieldByOffset[Offset: Integer]: TDataField read GetFieldByOffset;
-      property FieldByIndex[ID: Integer]: TDataField read GetFieldByIndex;
-      property FieldCount: Integer read GetFieldCount;
+    public
+      // ExtraArgs: Pointer auf 3 Integer: CounterSize+Length+Count (packed record...)
+      constructor Create(ParentFile: TObject; ParentField: TDataField;
+          Offset: Integer; Name, Description: String; ExtraArgs: Pointer); override;
+      procedure Update(Offset, Length: Integer); override;
 
       function AddField(fieldtype: TFieldType; Offset: Integer;
@@ -190 +196 @@
   FParentFile := ParentFile;
   FParentField := ParentField;
+  FConnectionID := TFile(ParentFile).ConnectionID;
+end;
+
+function TDataField.GetCaption: String;
+begin
+  Result := FName;
+end;
+
+function TDataField.GetChild(ID: Integer): TTreeElement;
+begin
+  Result := nil;
+end;
+
+function TDataField.GetChildCount: Integer;
+begin
+  Result := 0;
 end;
 
@@ -265 +287 @@
 constructor TArray.Create(ParentFile: TObject; ParentField: TDataField;
     Offset: Integer; Name, Description: String; ExtraArgs: Pointer);
-begin
-  inherited Create(ParentFile, ParentField, Offset, Name, Description, ExtraArgs);
-end;
-
-function TArray.GetFieldByIndex(ID: Integer): TDataField;
-begin
-  if ID < Length(FDataFields) then
-    Result := FDataFields[ID]
-  else
-    Result := nil;
-end;
-
-function TArray.GetFieldByOffset(Offset: Integer): TDataField;
 var
   i: Integer;
-begin
-  Result := nil;
-
+  args: TArrayArgs;
+  fstream: TMemoryStream;
+begin
+  inherited Create(ParentFile, ParentField, Offset, Name, Description, ExtraArgs);
+  args := TArrayArgs(ExtraArgs^);
+  if args.CounterSize > 0 then
+  begin
+    fstream := TFile(ParentFile).FileStream;
+    fstream.Seek(Offset, soFromBeginning);
+    args.BlockCount := 0;
+    fstream.Read(args.BlockCount, args.CounterSize);
+  end;
+  SetLength(FDataFields, args.BlockCount);
   if Length(FDataFields) > 0 then
   begin
     for i := 0 to High(FDataFields) do
-      if FDataFields[i].Offset = Offset then
-        break;
-    if i < Length(FDataFields) then
-      Result := FDataFields[i];
-  end;
-end;
-
-function TArray.GetFieldCount: Integer;
+    begin
+      FDataFields[i] := TBlock.Create(ParentFile, Self,
+          Offset + args.CounterSize + i * args.BlockLength, Name+'['+IntToStr(i)+']', '', @args.BlockLength);
+    end;
+  end;
+end;
+
+function TArray.GetChildCount: Integer;
 begin
   Result := Length(FDataFields);
+end;
+
+function TArray.GetChild(ID: Integer): TTreeElement;
+begin
+  Result := FDataFields[ID];
+end;
+
+function TArray.GetFieldByOffset(Offset: Integer): TDataField;
+begin
+  Exit;
 end;
 
@@ -333 +362 @@
 begin
   inherited Create(ParentFile, ParentField, Offset, Name, Description, ExtraArgs);
-end;
-
-function TBlock.GetFieldByIndex(ID: Integer): TDataField;
+  if ExtraArgs <> nil then
+    FBlockLength := Integer(ExtraArgs^)
+  else
+    FBlockLength := -1;
+end;
+
+function TBlock.GetChild(ID: Integer): TTreeElement;
 begin
   Result := FDataFields[ID];
 end;
 
+function TBlock.GetChildCount: Integer;
+begin
+  Result := Length(FDataFields);
+end;
+
 function TBlock.GetFieldByOffset(Offset: Integer): TDataField;
 begin
   Exit;
-end;
-
-function TBlock.GetFieldCount: Integer;
-begin
-  Result := Length(FDataFields);
 end;
 
@@ -433 +466 @@
 end;
 
+function TLinkByID.GetChild(ID: Integer): TTreeElement;
+begin
+  if FFileID > 0 then
+    Result := ConManager.Connection[FConnectionID].MetaData.FileById[FFileID].Child[ID]
+  else
+    Result := nil;
+end;
+
+function TLinkByID.GetChildCount: Integer;
+begin
+  if FFileID > 0 then
+    Result := ConManager.Connection[FConnectionID].MetaData.FileById[FFileID].ChildCount
+  else
+    Result := 0;
+end;
+
 function TLinkByID.GetValueAsString: String;
 begin

oup/current/FileClasses/_Extensions.pas

@@ -4 +4 @@
 
 uses
-  _FileTypes;
+  _FileTypes, _TreeElement;
 
 type
-  TExtension = class
+  TExtension = class(TTreeElement)
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
+      function GetCaption: String; override;
     private
-      FConnectionID: Integer;
       FExt: String;
       FFiles: array of Integer;
-      function GetFile(ID: Integer): Integer;
-      function GetFileCount: Integer;
     public
       constructor Create(ConnectionID: Integer; Ext: String); virtual;
       procedure InitList;
-      property Ext: String read FExt;
-      property Files[ID: Integer]: Integer read GetFile;
-      property FileCount: Integer read GetFileCount;
   end;
 
-  TExtensions = array of TExtension;
-                      
+  TExtensions = class(TTreeElement)
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
+      function GetCaption: String; override;
+    private
+      FExtensions: array of TExtension;
+    public
+      constructor Create(DataAccess: TObject; ConnectionID: Integer);
+      function GetExt(Ext: String): TExtension;
+      procedure AddExt(Ext: String);
+  end;
+
 
 
@@ -29 +36 @@
 
 uses
-  Classes, StrUtils, SysUtils, ConnectionManager, TypeDefs;
+  Classes, StrUtils, SysUtils, ConnectionManager, TypeDefs, DataAccess, _MetaManager;
 
 { TExtension }
@@ -39 +46 @@
 end;
 
-function TExtension.GetFile(ID: Integer): Integer;
+function TExtension.GetCaption: String;
 begin
-  Result := FFiles[ID];
+  Result := FExt;
 end;
 
-function TExtension.GetFileCount: Integer;
+function TExtension.GetChild(ID: Integer): TTreeElement;
+var
+  Meta: TMetaManager;
+begin
+  Meta := ConManager.Connection[FConnectionID].MetaData;
+  Meta.InitFile(FFiles[ID]);
+  Result := Meta.FileById[FFiles[ID]];
+end;
+
+function TExtension.GetChildCount: Integer;
 begin
   Result := Length(FFiles);
@@ -57 +73 @@
 begin
   files := TStringList.Create;
-  files := ConManager.Connection[FConnectionID].GetFilesList(Ext, '', False, ST_NameAsc);
+  files := ConManager.Connection[FConnectionID].GetFilesList(FExt, '', False, ST_NameAsc);
   if files.Count > 0 then
   begin
@@ -74 +90 @@
 end;
 
+
+{ TExtensions }
+
+function TExtensions.GetCaption: String;
+begin
+  Result := '';
+end;
+
+function TExtensions.GetChild(ID: Integer): TTreeElement;
+begin
+  Result := FExtensions[ID];
+end;
+
+function TExtensions.GetChildCount: Integer;
+begin
+  Result := Length(FExtensions);
+end;
+
+constructor TExtensions.Create(DataAccess: TObject; ConnectionID: Integer);
+var
+  files: TStrings;
+  i: Integer;
+  fid: Integer;
+  finfo: TFileInfo;
+begin
+  FConnectionID := ConnectionID;
+  files := TStringList.Create;
+  files := TDataAccess(DataAccess).GetFilesList('', '', False, ST_IDAsc);
+  SetLength(FExtensions, 0);
+  if files.Count > 0 then
+  begin
+    for i := 0 to files.Count - 1 do
+    begin
+      fid := StrToInt(MidStr(files.Strings[i], 1, 5));
+      finfo := TDataAccess(DataAccess).GetFileInfo(fid);
+      if Length(finfo.Name) > 0 then
+        if not Assigned(GetExt(finfo.Extension)) then
+          AddExt(finfo.Extension);
+    end;
+  end;
+  files.Free;
+end;
+
+
+function TExtensions.GetExt(Ext: String): TExtension;
+var
+  i: Integer;
+begin
+  Result := nil;
+  if Length(FExtensions) > 0 then
+    for i := 0 to High(FExtensions) do
+      if FExtensions[i].GetCaption = Ext then
+      begin
+        Result := FExtensions[i];
+        Break;
+      end;
+end;
+
+procedure TExtensions.AddExt(Ext: String);
+var
+  i: Integer;
+begin
+  SetLength(FExtensions, Length(FExtensions) + 1);
+  for i := High(FExtensions) downto 1 do
+  begin
+    if FExtensions[i-1].GetCaption < Ext then
+    begin
+      FExtensions[i] := TExtension.Create(FConnectionID, Ext);
+      Break;
+    end
+    else
+      FExtensions[i] := FExtensions[i-1];
+  end;
+  if i = 0 then
+    FExtensions[0] := TExtension.Create(FConnectionID, Ext);
+end;
+
+
+
 end.

oup/current/FileClasses/_FileTypes.pas

@@ -4 +4 @@
 
 uses
-  TypeDefs, _DataTypes, Classes, Forms;
+  TypeDefs, _DataTypes, _TreeElement, Classes, Forms;
 
 
 type
-  TFile = class
+  TFile = class(TTreeElement)
+      function GetChildCount: Integer; override;
+      function GetChild(ID: Integer): TTreeElement; override;
+      function GetCaption: String; override;
+  private
+    FConnectionID: Integer;
     protected
-      FConnectionID: Integer;
       FFileInfo: TFileInfo;
       FFileStream: TMemoryStream;
@@ -17 +21 @@
       FChanged: Boolean;
 
-      FDatLinks: TDatLinkList;
       FDataFields: TBlock;
-      FRawParts: TRawDataList;
 
       FEditor: TFrame;
       FOpened: Boolean;
 
-      procedure InitDatLinks;
-      procedure InitRawList;
-
-      function GetDatLinkByOffset(Offset: Integer): TDatLink;
-      function GetDatLinkByIndex(ID: Integer): TDatLink;
       function GetFieldByOffset(Offset: Integer): TDataField;
-      function GetFieldByIndex(ID: Integer): TDataField;
-      function GetRawPartByOffset(Offset: Integer): TRawDataInfo;
-      function GetRawPartByIndex(ID: Integer): TRawDataInfo;
-      function GetChildCount: Integer;
-      function GetRawCount: Integer;
+  published
     public
       constructor Create(ConnectionID, FileID: Integer); virtual;
@@ -52 +45 @@
       property Opened: Boolean read FOpened write FOpened;
 
-      property ChildCount: Integer read GetChildCount;
-      property LinkByOffset[Offset: Integer]: TDatLink read GetDatLinkByOffset;
-      property LinkByIndex[ID: Integer]: TDatLink read GetDatLinkByIndex;
-
       property FieldByOffset[Offset: Integer]: TDataField read GetFieldByOffset;
-      property FieldByIndex[ID: Integer]: TDataField read GetFieldByIndex;
-
-      property RawCount: Integer read GetRawCount;
-      property RawPartByOffset[Offset: Integer]: TRawDataInfo read GetRawPartByOffset;
-      property RawPartByIndex[ID: Integer]: TRawDataInfo read GetRawPartByIndex;
   end;
 
@@ -68 +52 @@
 
 
-function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
-
-
 
 implementation
 
 uses
-  DatLinks, RawList, ConnectionManager, Dialogs, _EmptyFile;
+  DatLinks, RawList, ConnectionManager, Dialogs, _MetaTypes, _MetaManager;
 
 { TFileType }
@@ -89 +70 @@
   if not (Self is TFile_Empty) then
   begin
-    InitDatLinks();
-    InitRawList();
     FDataFields := nil;
+    InitDataFields;
     FEditor := nil;
   end
   else
   begin
-    SetLength(FDatLinks, 0);
-    SetLength(FRawParts, 0);
     FEditor := nil;
   end;
@@ -108 +86 @@
 end;
 
-function TFile.GetDatLinkByIndex(ID: Integer): TDatLink;
-var
-  i: Integer;
-  valids: Integer;
-begin
-  if ID < GetChildCount then
-  begin
-    valids := 0;
-    i := 0;
-    repeat
-      if FDatLinks[i].DestID >= 0 then
-      begin
-        Inc(valids);
-      end;
-      Inc(i);
-    until valids > ID;
-    Result := FDatLinks[i - 1];
-  end
-  else
-    with Result do
-    begin
-      SrcOffset := -1;
-      DestID := -1;
-      PosDestExts := '';
-    end;
-end;
-
-function TFile.GetDatLinkByOffset(Offset: Integer): TDatLink;
-var
-  i: Integer;
-begin
-  Result.SrcOffset := -1;
-  Result.DestID := -1;
-  Result.PosDestExts := '';
-  
-  if Length(FDatLinks) > 0 then
-  begin
-    for i := 0 to High(FDatLinks) do
-      if FDatLinks[i].SrcOffset = Offset then
-        break;
-    if i < Length(FDatLinks) then
-      Result := FDatLinks[i];
-  end;
-end;
-
-
-function TFile.GetFieldByIndex(ID: Integer): TDataField;
-begin
-  Result := FDataFields.FieldByIndex[ID];
-end;
 
 function TFile.GetFieldByOffset(Offset: Integer): TDataField;
@@ -165 +93 @@
 
 
-function TFile.GetChildCount: Integer;
-var
-  i: Integer;
+function TFile.GetCaption: String;
 begin
-  Result := Length(FDatLinks);
-  if Result > 0 then
-  begin
-    Result := 0;
-    for i := 0 to High(FDatLinks) do
-      if FDatLinks[i].DestID >= 0 then
-        Inc(Result);
-  end;
+  Result := FFileInfo.Name;
+  if Result = '' then
+    Result := 'Unnamed';
 end;
 
-function TFile.GetRawCount: Integer;
-var
-  i: Integer;
+function TFile.GetChild(ID: Integer): TTreeElement;
 begin
-  Result := Length(FRawParts);
-  if Result > 0 then
-  begin
-    Result := 0;
-    for i := 0 to High(FRawParts) do
-      if FRawParts[i].RawSize > 0 then
-        Inc(Result);
-  end;
+  Result := FDataFields.Child[ID];
 end;
 
-function TFile.GetRawPartByIndex(ID: Integer): TRawDataInfo;
-var
-  i: Integer;
-  valids: Integer;
+function TFile.GetChildCount: Integer;
 begin
-  if ID < GetRawCount then
-  begin
-    valids := 0;
-    i := 0;
-    repeat
-      if FRawParts[i].RawSize > 0 then
-      begin
-        Inc(valids);
-      end;
-      Inc(i);
-    until valids > ID;
-    Result := FRawParts[i - 1];
-  end
-  else
-    with Result do
-    begin
-      SrcID := -1;
-      SrcOffset := -1;
-      RawAddr := -1;
-      RawSize := -1;
-    end;
+  if FDataFields <> nil then
+    Result := FDataFields.ChildCount;
 end;
-
-function TFile.GetRawPartByOffset(Offset: Integer): TRawDataInfo;
-var
-  i: Integer;
-begin
-  with Result do
-  begin
-    SrcID := -1;
-    SrcOffset := -1;
-    RawAddr := -1;
-    RawSize := -1;
-  end;
-
-  if Length(FRawParts) > 0 then
-  begin
-    for i := 0 to High(FRawParts) do
-      if FRawParts[i].SrcOffset = Offset then
-        break;
-    if i < Length(FRawParts) then
-      Result := FRawParts[i];
-  end;
-end;
-
 
 
@@ -249 +116 @@
   if Assigned(FDataFields) then
     Exit;
+  FFileStream := TMemoryStream.Create;
+  ConManager.Connection[FConnectionID].LoadDatFile(FFileInfo.ID, TStream(FFileStream));
 end;
 
-procedure TFile.InitDatLinks;
-begin
-  FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileInfo.ID);
-end;
 
 procedure TFile.InitEditor;
@@ -261 +126 @@
 end;
 
-procedure TFile.InitRawList;
-begin
-  FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileInfo.ID);
-end;
-
-function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
-begin
-  stream.Seek(Offset, soFromBeginning);
-  stream.Read(Result, 4);
-  if Result > 0 then
-    Result := Result div 256
-  else
-    Result := -1;
-end;
 
 end.

oup/current/FileClasses/_MetaManager.pas

@@ -13 +13 @@
       function GetFileCount: Integer;
       function GetFileById(Id: Integer): TFile;
-      function GetExt(Ext: String): TExtension;
-      procedure AddExt(Ext: String);
     private
-      procedure InitExts;
     public
       constructor Create(ConnectionID: Integer; DataAccess: TObject);
-      procedure InitExtFiles(Ext: String);
       procedure InitFile(id: Integer);
       procedure InitFileFields(id: Integer);
 
       property Root: TExtensions read FRoot;
-      property RootExt[Ext: String]: TExtension read GetExt;
       property FileCount: Integer read GetFileCount;
       property FileById[Id: Integer]: TFile read GetFileById;
@@ -33 +28 @@
 uses
   Classes, ConnectionManager, Access_OniArchive, TypeDefs,
-  Dialogs, SysUtils, StrUtils, DataAccess;
+  Dialogs, SysUtils, StrUtils, DataAccess, _Extensions;
 
 { TFileManager }
@@ -42 +37 @@
   FDataAccess := DataAccess;
   SetLength(FFiles, TDataAccess(DataAccess).GetFileCount);
-  InitExts;
+  FRoot := TExtensions.Create(DataAccess, ConnectionID);
 end;
 
-function TMetaManager.GetExt(Ext: String): TExtension;
-var
-  i: Integer;
-begin
-  Result := nil;
-  if Length(FRoot) > 0 then
-    for i := 0 to High(FRoot) do
-      if FRoot[i].Ext = Ext then
-      begin
-        Result := FRoot[i];
-        Break;
-      end;
-end;
-
-procedure TMetaManager.AddExt(Ext: String);
-var
-  i: Integer;
-begin
-  SetLength(FRoot, Length(FRoot) + 1);
-  for i := High(FRoot) downto 1 do
-  begin
-    if FRoot[i-1].Ext < Ext then
-    begin
-      FRoot[i] := TExtension.Create(FConnectionID, Ext);
-      Break;
-    end
-    else
-      FRoot[i] := FRoot[i-1];
-  end;
-  if i = 0 then
-    FRoot[0] := TExtension.Create(FConnectionID, Ext);
-end;
 
 function TMetaManager.GetFileById(Id: Integer): TFile;
 begin
+  InitFile(Id);
   Result := FFiles[Id];
 end;
@@ -130 +94 @@
 end;
 
-procedure TMetaManager.InitExtFiles(Ext: String);
-var
-  files: TStrings;
-  i: Integer;
-  typei: Integer;
-  fid: Integer;
-  finfo: TFileInfo;
-begin
-  if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
-    TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := False;
-  files := TStringList.Create;
-  files := ConManager.Connection[FConnectionID].GetFilesList('', '', False, ST_IDAsc);
-  SetLength(FFiles, ConManager.Connection[FConnectionID].GetFileCount);
-  for i := 0 to High(FFiles) do
-    FFiles[i] := nil;
-  if files.Count > 0 then
-  begin
-    for i := 0 to files.Count - 1 do
-    begin
-      fid := StrToInt(MidStr(files.Strings[i], 1, 5));
-      finfo := ConManager.Connection[FConnectionID].GetFileInfo(fid);
-      if Length(finfo.Name) > 0 then
-      begin
-        if finfo.Size > 0 then
-        begin
-          for typei := 0 to High(FileDescs) do
-          begin
-            if FileDescs[typei].ext = finfo.Extension then
-            begin
-              FFiles[fid] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, fid);
-              Break;
-            end;
-          end;
-        end
-        else
-          FFiles[fid] := TFile_Empty.Create(FConnectionID, fid);
-      end;
-    end;
-  end;
-  files.Free;
-  if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
-    TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := True;
-end;
-
-procedure TMetaManager.InitExts;
-var
-  files: TStrings;
-  i: Integer;
-  fid: Integer;
-  finfo: TFileInfo;
-begin
-  files := TStringList.Create;
-  files := TDataAccess(FDataAccess).GetFilesList('', '', False, ST_IDAsc);
-  SetLength(FRoot, 0);
-  if files.Count > 0 then
-  begin
-    for i := 0 to files.Count - 1 do
-    begin
-      fid := StrToInt(MidStr(files.Strings[i], 1, 5));
-      finfo := TDataAccess(FDataAccess).GetFileInfo(fid);
-      if Length(finfo.Name) > 0 then
-        if not Assigned(GetExt(finfo.Extension)) then
-          AddExt(finfo.Extension);
-    end;
-  end;
-  files.Free;
-end;
-
 end.

oup/current/FileClasses/_MetaTypes.pas

@@ -4 +4 @@
 
 uses
-  _FileTypes, _EmptyFile, _DataTypes, _Extensions,
+  _FileTypes, _EmptyFile, _Unlinked, _DataTypes, _Extensions, _TreeElement,
   ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
   AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
@@ -16 +16 @@
 
 type
+  TTreeElement = _TreeElement.TTreeElement;
   TFile = _FileTypes.TFile;
   TFile_Empty = _EmptyFile.TFile_Empty;
+  TFile_Unlinked = _Unlinked.TFile_Unlinked;
   TExtension = _Extensions.TExtension;
   TExtensions = _Extensions.TExtensions;