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

Timestamp:

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

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/TXAN.pas (modified) (2 diffs)

oup/current/FileClasses/TXAN.pas

@@ -8 +8 @@
 type
   TFile_TXAN = class(TFile)
-    protected
-      procedure InitDatLinks; override;
-      procedure InitRawList; override;
     public
       procedure InitDataFields; override;
@@ -56 +53 @@
 
 
-procedure TFile_TXAN.InitDatLinks;
-var
-  links: Integer;
-  i: Integer;
-begin
-  ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $1C, SizeOf(links), @links);
-  SetLength(FDatLinks, links);
-  for i := 0 to links - 1 do
-  begin
-    FDatLinks[i].SrcOffset := $20 + $4 * i;
-    FDatLinks[i].DestID := GetDatLinkValue(FFileStream, FDatLinks[i].SrcOffset);
-    FDatLinks[i].PosDestExts := 'TXMP';
-  end;
-end;
-
-
-procedure TFile_TXAN.InitRawList;
-begin
-  SetLength(FRawParts, 0);
-end;
-
 end.