Changeset 215 for oup/current/FileClasses/_FileTypes.pas

Timestamp:

Jun 12, 2007, 10:31:54 PM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/FileClasses/_FileTypes.pas

@@ -27 +27 @@
       FOpened: Boolean;
 
-      procedure InitDatLinks; virtual; abstract;
-      procedure InitRawList; virtual; abstract;
+      procedure InitDatLinks;
+      procedure InitRawList;
 
       function GetDatLinkByOffset(Offset: Integer): TDatLink;
@@ -101 +101 @@
     FFileStream := TMemoryStream.Create;
     ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
-  end;
-
-  InitDatLinks();
-  InitRawList();
-  FDataFields := nil;
-  FEditor := nil;
-
-  if not (Self is TFile_Empty) then
+
+    InitDatLinks();
+    InitRawList();
+    FDataFields := nil;
+    FEditor := nil;
+
     FFileStream.Free;
-  FFileStream := nil;
+    FFileStream := nil;
+  end
+  else
+  begin
+    SetLength(FDatLinks, 0);
+    SetLength(FRawParts, 0);
+    FEditor := nil;
+  end;
 end;
 
@@ -234 +239 @@
 end;
 
+procedure TFile.InitDatLinks;
+begin
+  FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileID);
+end;
+
 procedure TFile.InitEditor;
 begin
   Exit;
+end;
+
+procedure TFile.InitRawList;
+begin
+  FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileID);
 end;