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 228 by alloc, Wed Jun 20 09:51:38 2007 UTC vs.
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC

#	Line 6 | Line 6 | type
6		TExtension = class
7		private
8		FConnectionID: Integer;
9	+	FExt: String;
10		FFiles: array of Integer;
11		function GetFile(ID: Integer): Integer;
12		function GetFileCount: Integer;
13		public
14		constructor Create(ConnectionID: Integer; Ext: String); virtual;
15		procedure InitList;
16	+	property Ext: String read FExt;
17		property Files[ID: Integer]: Integer read GetFile;
18		property FileCount: Integer read GetFileCount;
19		end;
20
21	+	TExtensions = array of TExtension;
22	+
23	+
24
25		implementation
26
#	Line 25 | Line 30 | uses
30		{ TExtension }
31
32		constructor TExtension.Create(ConnectionID: Integer; Ext: String);
33	+	begin
34	+	FConnectionID := ConnectionID;
35	+	FExt := Ext;
36	+	end;
37	+
38	+	function TExtension.GetFile(ID: Integer): Integer;
39	+	begin
40	+	Result := FFiles[ID];
41	+	end;
42	+
43	+	function TExtension.GetFileCount: Integer;
44	+	begin
45	+	Result := Length(FFiles);
46	+	end;
47	+
48	+	procedure TExtension.InitList;
49		var
50		files: TStrings;
51		i: Integer;
#	Line 49 | Line 70 | begin
70		files.Free;
71		end;
72
52	–	function TExtension.GetFile(ID: Integer): Integer;
53	–	begin
54	–	Result := FFiles[ID];
55	–	end;
56	–
57	–	function TExtension.GetFileCount: Integer;
58	–	begin
59	–	Result := Length(FFiles);
60	–	end;
61	–
62	–	procedure TExtension.InitList;
63	–	begin
64	–	Exit;
65	–	end;
66	–
73		end.

Diff Legend

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