Changeset 229 for oup/current/FileClasses/_Extensions.pas

Timestamp:

Jun 20, 2007, 12:57:51 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_Extensions.pas (modified) (4 diffs)

oup/current/FileClasses/_Extensions.pas

@@ -7 +7 @@
     private
       FConnectionID: Integer;
+      FExt: String;
       FFiles: array of Integer;
       function GetFile(ID: Integer): Integer;
@@ -13 +14 @@
       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;
+                      
 
 
@@ -26 +31 @@
 
 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;
@@ -50 +71 @@
 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.