source: oup/current/FileClasses/TXMA.pas@ 596

Last change on this file since 596 was 233, checked in by alloc, 17 years ago
File size: 597 bytes
RevLine 
[215]1unit TXMA;
2
3interface
4
5uses
6 _FileTypes;
7
8type
9 TFile_TXMA = 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_TXMA.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;
[233]30 FFileStream.Free;
31 FFileStream := nil;
[215]32end;
33
34
35end.
Note: See TracBrowser for help on using the repository browser.