current/FileClasses/TSFF.pas

unit TSFF;

interface

uses
  _FileTypes;

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

implementation

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

procedure TFile_TSFF.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;
  FFileStream.Free;
  FFileStream := nil;
end;


end.
Revision:	233
Committed:	Fri Jun 29 12:38:24 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	597 byte(s)
Log Message:
#	Content
1	unit TSFF;
2
3	interface
4
5	uses
6	_FileTypes;
7
8	type
9	TFile_TSFF = 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_TSFF.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	FFileStream.Free;
31	FFileStream := nil;
32	end;
33
34
35	end.