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 210 by alloc, Mon Jun 4 22:12:31 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 <  FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
30 >  inherited;
31 >  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
32    templist := TStringList.Create;
33    with FDataFields do
34    begin

Diff Legend

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