current/FileClasses/_EmptyFile.pas

unit _EmptyFile;

interface

uses
  _FileTypes;

type
  TFile_Empty = class(TFile)
    protected
      procedure InitDatLinks; override;
      procedure InitRawList; override;
    public
      procedure InitDataFields; override;
  end;

implementation

uses
  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;

procedure TFile_Empty.InitDataFields;
begin
  inherited;
  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
end;


procedure TFile_Empty.InitDatLinks;
begin
  SetLength(FDatLinks, 0);
end;


procedure TFile_Empty.InitRawList;
begin
  SetLength(FRawParts, 0);
end;

end.

Revision:	214
Committed:	Tue Jun 12 17:35:56 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	641 byte(s)
Log Message:
#	Content
1	unit _EmptyFile;
2
3	interface
4
5	uses
6	_FileTypes;
7
8	type
9	TFile_Empty = class(TFile)
10	protected
11	procedure InitDatLinks; override;
12	procedure InitRawList; override;
13	public
14	procedure InitDataFields; override;
15	end;
16
17	implementation
18
19	uses
20	ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
21
22	procedure TFile_Empty.InitDataFields;
23	begin
24	inherited;
25	FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
26	end;
27
28
29	procedure TFile_Empty.InitDatLinks;
30	begin
31	SetLength(FDatLinks, 0);
32	end;
33
34
35	procedure TFile_Empty.InitRawList;
36	begin
37	SetLength(FRawParts, 0);
38	end;
39
40	end.
41