--- oup/current/FileClasses/_EmptyFile.pas	2007/06/12 16:42:53	212
+++ oup/current/FileClasses/_EmptyFile.pas	2007/11/26 11:02:28	248
@@ -6,34 +6,10 @@ uses
   _FileTypes;
 
 type
-  TFile_Empty = class(TFile)
-    protected
-      procedure InitDatLinks; override;
-      procedure InitDataFields; override;
-      procedure InitRawList; override;
+  TFile_Empty = class(TResource)
   end;
 
 implementation
 
-uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
-
-procedure TFile_Empty.InitDataFields;
-begin
-  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
-end;
-
-
-procedure TFile_Empty.InitDatLinks;
-begin
-  SetLength(FDatLinks, 0);
-end;
-
-
-procedure TFile_Empty.InitRawList;
-begin
-  SetLength(FRawParts, 0);
-end;
-
 end.