ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/_EmptyFile.pas

Comparing oup/current/FileClasses/_EmptyFile.pas (file contents):
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

#	Line 6 | Line 6 | 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;
9	>	TFile_Empty = class(TResource)
10		end;
11
12		implementation
13
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	–
14		end.
15

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)