ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/FileClasses/_Extensions.pas (file contents):
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC vs.
Revision 237 by alloc, Sat Jul 14 14:18:23 2007 UTC

#	Line 2 | Line 2 | unit _Extensions;
2
3		interface
4
5	+	uses
6	+	_FileTypes, _TreeElement;
7	+
8		type
9	<	TExtension = class
9	>	TExtension = class(TTreeElement)
10	>	function GetChildCount: Integer; override;
11	>	function GetChild(ID: Integer): TTreeElement; override;
12	>	function GetCaption: String; override;
13		private
8	–	FConnectionID: Integer;
14		FExt: String;
15		FFiles: array of Integer;
11	–	function GetFile(ID: Integer): Integer;
12	–	function GetFileCount: Integer;
16		public
17		constructor Create(ConnectionID: Integer; Ext: String); virtual;
18		procedure InitList;
19		property Ext: String read FExt;
17	–	property Files[ID: Integer]: Integer read GetFile;
18	–	property FileCount: Integer read GetFileCount;
20		end;
21
22	<	TExtensions = array of TExtension;
23	<
22	>	TExtensions = class(TTreeElement)
23	>	function GetChildCount: Integer; override;
24	>	function GetChild(ID: Integer): TTreeElement; override;
25	>	function GetCaption: String; override;
26	>	private
27	>	FExtensions: array of TExtension;
28	>	public
29	>	constructor Create(DataAccess: TObject; ConnectionID: Integer);
30	>	function GetExt(Ext: String): TExtension;
31	>	procedure AddExt(Ext: String);
32	>	end;
33	>
34
35
36		implementation
37
38		uses
39	<	Classes, StrUtils, SysUtils, ConnectionManager, TypeDefs;
39	>	Classes, StrUtils, SysUtils, ConnectionManager, TypeDefs, DataAccess, _MetaManager;
40
41		{ TExtension }
42
#	Line 35 | Line 46 | begin
46		FExt := Ext;
47		end;
48
49	<	function TExtension.GetFile(ID: Integer): Integer;
49	>	function TExtension.GetCaption: String;
50		begin
51	<	Result := FFiles[ID];
51	>	Result := FExt + '[' + IntToStr(GetChildCount) + ']';
52		end;
53
54	<	function TExtension.GetFileCount: Integer;
54	>	function TExtension.GetChild(ID: Integer): TTreeElement;
55	>	var
56	>	Meta: TMetaManager;
57	>	begin
58	>	Meta := ConManager.Connection[FConnectionID].MetaData;
59	>	Meta.InitFile(FFiles[ID]);
60	>	Result := Meta.FileById[FFiles[ID]];
61	>	end;
62	>
63	>	function TExtension.GetChildCount: Integer;
64		begin
65		Result := Length(FFiles);
66		end;
#	Line 53 | Line 73 | var
73		finfo: TFileInfo;
74		begin
75		files := TStringList.Create;
76	<	files := ConManager.Connection[FConnectionID].GetFilesList(Ext, '', False, ST_NameAsc);
76	>	files := ConManager.Connection[FConnectionID].GetFilesList(FExt, '', False, ST_NameAsc);
77		if files.Count > 0 then
78		begin
79		for i := 0 to files.Count - 1 do
#	Line 70 | Line 90 | begin
90		files.Free;
91		end;
92
93	+
94	+	{ TExtensions }
95	+
96	+	function TExtensions.GetCaption: String;
97	+	begin
98	+	Result := '';
99	+	end;
100	+
101	+	function TExtensions.GetChild(ID: Integer): TTreeElement;
102	+	begin
103	+	FExtensions[ID].InitList;
104	+	Result := FExtensions[ID];
105	+	end;
106	+
107	+	function TExtensions.GetChildCount: Integer;
108	+	begin
109	+	Result := Length(FExtensions);
110	+	end;
111	+
112	+	constructor TExtensions.Create(DataAccess: TObject; ConnectionID: Integer);
113	+	var
114	+	files: TStrings;
115	+	i: Integer;
116	+	fid: Integer;
117	+	finfo: TFileInfo;
118	+	begin
119	+	FConnectionID := ConnectionID;
120	+	files := TStringList.Create;
121	+	files := TDataAccess(DataAccess).GetFilesList('', '', False, ST_IDAsc);
122	+	SetLength(FExtensions, 0);
123	+	if files.Count > 0 then
124	+	begin
125	+	for i := 0 to files.Count - 1 do
126	+	begin
127	+	fid := StrToInt(MidStr(files.Strings[i], 1, 5));
128	+	finfo := TDataAccess(DataAccess).GetFileInfo(fid);
129	+	if Length(finfo.Name) > 0 then
130	+	if not Assigned(GetExt(finfo.Extension)) then
131	+	AddExt(finfo.Extension);
132	+	end;
133	+	end;
134	+	files.Free;
135	+	end;
136	+
137	+
138	+	function TExtensions.GetExt(Ext: String): TExtension;
139	+	var
140	+	i: Integer;
141	+	begin
142	+	Result := nil;
143	+	if Length(FExtensions) > 0 then
144	+	for i := 0 to High(FExtensions) do
145	+	if FExtensions[i].Ext = Ext then
146	+	begin
147	+	Result := FExtensions[i];
148	+	Break;
149	+	end;
150	+	end;
151	+
152	+	procedure TExtensions.AddExt(Ext: String);
153	+	var
154	+	i: Integer;
155	+	begin
156	+	SetLength(FExtensions, Length(FExtensions) + 1);
157	+	for i := High(FExtensions) downto 1 do
158	+	begin
159	+	if FExtensions[i-1].GetCaption < Ext then
160	+	begin
161	+	FExtensions[i] := TExtension.Create(FConnectionID, Ext);
162	+	Break;
163	+	end
164	+	else
165	+	FExtensions[i] := FExtensions[i-1];
166	+	end;
167	+	if i = 0 then
168	+	FExtensions[0] := TExtension.Create(FConnectionID, Ext);
169	+	end;
170	+
171	+
172	+
173		end.

Diff Legend

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