--- oup/current/FileClasses/_Extensions.pas	2007/06/20 09:51:38	228
+++ oup/current/FileClasses/_Extensions.pas	2007/06/20 10:57:51	229
@@ -6,16 +6,21 @@ type
   TExtension = class
     private
       FConnectionID: Integer;
+      FExt: String;
       FFiles: array of Integer;
       function GetFile(ID: Integer): Integer;
       function GetFileCount: Integer;
     public
       constructor Create(ConnectionID: Integer; Ext: String); virtual;
       procedure InitList;
+      property Ext: String read FExt;
       property Files[ID: Integer]: Integer read GetFile;
       property FileCount: Integer read GetFileCount;
   end;
 
+  TExtensions = array of TExtension;
+                      
+
 
 implementation
 
@@ -25,6 +30,22 @@ uses
 { TExtension }
 
 constructor TExtension.Create(ConnectionID: Integer; Ext: String);
+begin
+  FConnectionID := ConnectionID;
+  FExt := Ext;
+end;
+
+function TExtension.GetFile(ID: Integer): Integer;
+begin
+  Result := FFiles[ID];
+end;
+
+function TExtension.GetFileCount: Integer;
+begin
+  Result := Length(FFiles);
+end;
+
+procedure TExtension.InitList;
 var
   files: TStrings;
   i: Integer;
@@ -49,19 +70,4 @@ begin
   files.Free;
 end;
 
-function TExtension.GetFile(ID: Integer): Integer;
-begin
-  Result := FFiles[ID];
-end;
-
-function TExtension.GetFileCount: Integer;
-begin
-  Result := Length(FFiles);
-end;
-
-procedure TExtension.InitList;
-begin
-Exit;
-end;
-
 end.