Changeset 441 for Generics/TemplateGenerics/Generic/GenericFileList.inc

Timestamp:

Nov 19, 2012, 2:47:07 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Wrong memory inicialization in TListObject results in error during other object assignment.

File:

• Generics/TemplateGenerics/Generic/GenericFileList.inc (modified) (3 diffs)

Generics/TemplateGenerics/Generic/GenericFileList.inc

@@ -15 +15 @@
     procedure SetFileName(const Value: string);
     procedure SetMode(const Value: Word);
+    function GetOpenned: Boolean;
   public
     constructor Create; override;
@@ -22 +23 @@
     property FileName: string read FFileName write SetFileName;
     property Mode: Word read FMode write SetMode;
+    property Openned: Boolean read GetOpenned;
   end;
 
@@ -81 +83 @@
 end;
 
+function TGFileList.GetOpenned: Boolean;
+begin
+  Result := FHandle <> feInvalidHandle;
+end;
 
 {$UNDEF IMPLEMENTATION}