Changeset 458 for Generics/NativeGenerics/Units/GenericList.pas

Timestamp:

Nov 28, 2012, 7:50:19 AM (12 years ago)

Author:

chronos

Message:

• Modified: TListFile enhancements.

File:

• Generics/NativeGenerics/Units/GenericList.pas (modified) (5 diffs)

Generics/NativeGenerics/Units/GenericList.pas

@@ -95 +95 @@
     function Get(Index: TIndex): TItem; override;
     function GetInternal(Index: TIndex): TItem; override;
+    function GetCount: TIndex; override;
     function GetCapacity: TIndex;
-    function GetCount: TIndex; override;
+    procedure SetCount(const AValue: TIndex); override;
     procedure SetCapacity(const AValue: TIndex);
     procedure SetCapacityOptimized(const NewCapacity: TIndex);
-    procedure SetCount(const AValue: TIndex); override;
     procedure Put(Index: TIndex; const AValue: TItem); override;
     procedure PutInternal(Index: TIndex; const AValue: TItem); override;
@@ -141 +141 @@
   TGFileList<TItem> = class(TGList<TItem>)
   private
+    FFileName: string;
     FHandle: THandle;
+    FMode: Word;
+    function GetOpenned: Boolean;
+    procedure SetFileName(AValue: string);
+    procedure SetMode(AValue: Word);
   protected
     function GetCount: TIndex; override;
@@ -150 +155 @@
     procedure Put(Index: TIndex; const AValue: TItem); override;
   public
-    procedure Open(FileName: string; Mode: Integer);
+    procedure Open;
     procedure Close;
     constructor Create;
     destructor Destroy; override;
+    property FileName: string read FFileName write SetFileName;
+    property Mode: Word read FMode write SetMode;
+    property Openned: Boolean read GetOpenned;
   end;
 
@@ -865 +873 @@
 { TGFileList<TItem> }
 
+procedure TGFileList<TItem>.SetFileName(AValue: string);
+begin
+  if FFileName = AValue then Exit;
+  FFileName := AValue;
+  if Openned then begin
+    Close;
+    Open;
+  end;
+end;
+
+function TGFileList<TItem>.GetOpenned: Boolean;
+begin
+  Result := FHandle <> feInvalidHandle;
+end;
+
+procedure TGFileList<TItem>.SetMode(AValue: Word);
+begin
+  if FMode = AValue then Exit;
+  FMode := AValue;
+  if Openned then begin
+    Close;
+    Open;
+  end;
+end;
+
 function TGFileList<TItem>.GetCount: TIndex;
 var
@@ -901 +934 @@
 end;
 
-procedure TGFileList<TItem>.Open(FileName: string; Mode: Integer);
+procedure TGFileList<TItem>.Open;
 begin
   Close;