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 237 by alloc, Fri Jul 13 23:15:47 2007 UTC vs.
Revision 238 by alloc, Sat Jul 14 16:50:55 2007 UTC

#	Line 7 | Line 7 | uses
7
8		type
9		TFile_Empty = class(TFile)
10	–	public
11	–	procedure InitDataFields; override;
10		end;
11
12		implementation
13
16	–	uses
17	–	ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
18	–
19	–	procedure TFile_Empty.InitDataFields;
20	–	begin
21	–	inherited;
22	–	FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23	–	end;
24	–
25	–
14		end.
15

Diff Legend

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