ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/_EmptyFile.pas
(Generate patch)

Comparing oup/current/FileClasses/_EmptyFile.pas (file contents):
Revision 212 by alloc, Tue Jun 12 16:42:53 2007 UTC vs.
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC

# Line 9 | Line 9 | type
9    TFile_Empty = class(TFile)
10      protected
11        procedure InitDatLinks; override;
12 –      procedure InitDataFields; override;
12        procedure InitRawList; override;
13 +    public
14 +      procedure InitDataFields; override;
15    end;
16  
17   implementation
# Line 20 | Line 21 | uses
21  
22   procedure TFile_Empty.InitDataFields;
23   begin
24 +  inherited;
25    FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
26   end;
27  

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)