ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/FileClasses/_MetaManager.pas (file contents):
Revision 212 by alloc, Tue Jun 12 16:42:53 2007 UTC vs.
Revision 213 by alloc, Tue Jun 12 17:00:48 2007 UTC

#	Line 28 | Line 28 | type
28		public
29		constructor Create(ConnectionID: Integer);
30		procedure InitFile(id: Integer);
31	+	procedure InitFileFields(id: Integer);
32
33		property FileCount: Integer read GetFileCount;
34		property FileById[Id: Integer]: TFile read GetFileById;
#	Line 58 | Line 59 | end;
59
60		procedure TMetaManager.InitFile(id: Integer);
61		var
61	–	//  i: Integer;
62		typei: Integer;
63		finfo: TFileInfo;
64		begin
#	Line 85 | Line 85 | begin
85		end;
86		end;
87		end;
88	+
89	+	procedure TMetaManager.InitFileFields(id: Integer);
90	+	begin
91	+	if id < ConManager.Connection[FConnectionID].GetFileCount then
92	+	begin
93	+	if not Assigned(FFiles[id]) then
94	+	begin
95	+	InitFile(id);
96	+	if not (FFiles[id] is TFile_Empty) then
97	+	FFiles[id].InitDataFields;
98	+	end;
99	+	end;
100	+	end;
101
102		procedure TMetaManager.InitRootFiles;
103		var

Diff Legend

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