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

Timestamp:

Jun 12, 2007, 6:42:53 PM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/FileClasses/_FileTypes.pas

@@ -17 +17 @@
       FFileStream: TMemoryStream;
 
+      FCached: Boolean;
+      FChanged: Boolean;
+
       FDatLinks: TDatLinkList;
       FDataFields: TBlock;
@@ -31 +34 @@
       function GetRawPartByOffset(Offset: Integer): TRawDataInfo;
       function GetRawPartByIndex(ID: Integer): TRawDataInfo;
+      function GetChildCount: Integer;
     public
       constructor Create(ConnectionID, FileID: Integer); virtual;
@@ -42 +46 @@
       property ConnectionID: Integer read FConnectionID;
 
+      property Cached: Boolean read FCached;
+      property Changed: Boolean read FChanged write FChanged;
+
+      property ChildCount: Integer read GetChildCount;
       property LinkByOffset[Offset: Integer]: TDatLink read GetDatLinkByOffset;
       property LinkByIndex[ID: Integer]: TDatLink read GetDatLinkByIndex;
@@ -63 +71 @@
 
 uses
-  DatLinks, RawList, ConnectionManager, Dialogs;
+  DatLinks, RawList, ConnectionManager, Dialogs, _EmptyFile;
 
 { TFileType }
@@ -79 +87 @@
   FFileSize := fileinfo.Size;
 
-  FFileStream := TMemoryStream.Create;
-  ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
+  FCached := False;
+  FChanged := False;
+
+  if not (Self is TFile_Empty) then
+  begin
+    FFileStream := TMemoryStream.Create;
+    ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
+  end;
 
   InitDatLinks();
@@ -86 +100 @@
   InitRawList();
 
-  FFileStream.Free;
+  if not (Self is TFile_Empty) then
+    FFileStream.Free;
   FFileStream := nil;
 end;
@@ -97 +112 @@
 
 function TFile.GetDatLinkByIndex(ID: Integer): TDatLink;
-begin
-  if ID < Length(FDatLinks) then
-    Result := FDatLinks[ID]
+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
@@ -140 +169 @@
 end;
 
+
+function TFile.GetChildCount: Integer;
+var
+  i: Integer;
+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;
+end;
 
 function TFile.GetRawPartByIndex(ID: Integer): TRawDataInfo;