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

Comparing oup/current/FileClasses/TXMP.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_TXMP = 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 26 | Line 27 | var
27    temps: String;
28    templist: TStringList;
29   begin
30 +  inherited;
31    FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
32    templist := TStringList.Create;
33    with FDataFields do

Diff Legend

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