source: oup/current/FileClasses/TXMB.pas@ 1095

Last change on this file since 1095 was 233, checked in by alloc, 17 years ago
File size: 597 bytes
Line 
1unit TXMB;
2
3interface
4
5uses
6 _FileTypes;
7
8type
9 TFile_TXMB = class(TFile)
10 public
11 procedure InitDataFields; override;
12 end;
13
14implementation
15
16uses
17 ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
18
19procedure TFile_TXMB.InitDataFields;
20var
21 tempi: Integer;
22begin
23 inherited;
24 FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
25 with FDataFields do
26 begin
27 AddField(TFileID, $00, 'FileID', '', nil);
28 AddField(TLevelID, $04, 'LevelID', '', nil);
29 end;
30 FFileStream.Free;
31 FFileStream := nil;
32end;
33
34
35end.
Note: See TracBrowser for help on using the repository browser.