# | Line 6 | Line 6 | uses | |
---|---|---|
6 | _FileTypes; | |
7 | ||
8 | type | |
9 | < | TFile_AKEV = class(TFile) |
9 | > | TFile_AKEV = class(TResource) |
10 | public | |
11 | procedure InitDataFields; override; | |
12 | end; | |
# | Line 22 | Line 22 | begin | |
22 | FDataFields := TBlock.Create(Self, nil, 'Base', '', []); | |
23 | with FDataFields do | |
24 | begin | |
25 | < | AddField(TFileID, 'FileID', '', []); |
25 | > | AddField(TResourceID, 'FileID', '', []); |
26 | AddField(TLevelID, 'LevelID', '', []); | |
27 | ||
28 | AddField(TLinkByID, 'PNTA-link', 'Link to the 3D Point Array', ['PNTA']); |
– | Removed lines |
+ | Added lines |
< | Changed lines (old) |
> | Changed lines (new) |