Changeset 214 for oup/current/FileClasses/_EmptyFile.pas

Timestamp:

Jun 12, 2007, 7:35:56 PM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/FileClasses/_EmptyFile.pas

@@ -10 +10 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -21 +22 @@
 procedure TFile_Empty.InitDataFields;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
 end;