current/FileClasses/TRMA.pas

unit TRMA;

interface

uses
  _FileTypes;

type
  TFile_TRMA = class(TFile)
    public
      procedure InitDataFields; override;
  end;

implementation

uses
  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;

procedure TFile_TRMA.InitDataFields;
var
  tempi: Integer;
begin
  inherited;
  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
  with FDataFields do
  begin
    AddField(TFileID, $00, 'FileID', '', nil);
    AddField(TLevelID, $04, 'LevelID', '', nil);
  end;
end;


end.

Revision:	215
Committed:	Tue Jun 12 20:31:54 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	555 byte(s)
Log Message:
#	Content
1	unit TRMA;
2
3	interface
4
5	uses
6	_FileTypes;
7
8	type
9	TFile_TRMA = class(TFile)
10	public
11	procedure InitDataFields; override;
12	end;
13
14	implementation
15
16	uses
17	ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
18
19	procedure TFile_TRMA.InitDataFields;
20	var
21	tempi: Integer;
22	begin
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	end;
31
32
33	end.
34