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 213 by alloc, Tue Jun 12 17:00:48 2007 UTC vs.
Revision 228 by alloc, Wed Jun 20 09:51:38 2007 UTC

#	Line 1 | Line 1
1		unit _MetaManager;
2		interface
3
4	<	uses _FileTypes, TXAN, TXMP, _EmptyFile;
5	<
6	<	type
7	<	TFileType = class of TFile;
8	<	TFileDesc = record
9	<	ext: String;
10	<	ftype: TFileType;
11	<	end;
12	<
13	<	const
14	<	FileDescs: array[0..1] of TFileDesc = (
15	<	(ext: 'TXAN'; ftype: TFile_TXAN),
16	<	(ext: 'TXMP'; ftype: TFile_TXMP)
17	<	);
4	>	uses _MetaTypes;
5
6		type
7		TMetaManager = class
8		protected
9		FFiles: array of TFile;
10	+	FRoot: array of TExtension;
11		FConnectionID: Integer;
12		function GetFileCount: Integer;
13		function GetFileById(Id: Integer): TFile;
#	Line 34 | Line 22 | type
22		property FileById[Id: Integer]: TFile read GetFileById;
23		end;
24
25	+	var
26	+	Meta: TMetaManager;
27	+
28		implementation
29
30		uses
31	<	Classes, ConnectionManager, Access_OniArchive, TypeDefs, Dialogs, SysUtils, StrUtils;
31	>	Classes, ConnectionManager, Access_OniArchive, TypeDefs,
32	>	Dialogs, SysUtils, StrUtils;
33
34		{ TFileManager }
35
#	Line 73 | Line 65 | begin
65		begin
66		if FileDescs[typei].ext = finfo.Extension then
67		begin
68	<	FFiles[id] := TFileType(FileDescs[typei].ftype).Create(FConnectionID, id);
68	>	FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id);
69		Break;
70		end;
71		end;
#	Line 128 | Line 120 | begin
120		begin
121		if FileDescs[typei].ext = finfo.Extension then
122		begin
123	<	FFiles[fid] := TFileType(FileDescs[typei].ftype).Create(FConnectionID, fid);
123	>	FFiles[fid] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, fid);
124		Break;
125		end;
126		end;

Diff Legend

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