Changeset 134 for trunk/Packages/Common/UDataFile.pas

Timestamp:

Apr 10, 2022, 1:54:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: UDataFile unit moved into Common package and TDataFile class made TComponent descendant.

File:

• trunk/Packages/Common/UDataFile.pas (moved) (moved from trunk/UDataFile.pas ) (6 diffs)

trunk/Packages/Common/UDataFile.pas

@@ -9 +9 @@
   { TDataFile }
 
-  TDataFile = class
+  TDataFile = class(TComponent)
   private
     FFileName: string;
@@ -21 +21 @@
     function GetFileName: string; virtual;
     function GetFileFilter: string; virtual;
-    procedure Assign(Source: TDataFile);
+    procedure Assign(Source: TPersistent); override;
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     property FileName: string read FFileName write SetFileName;
     property Modified: Boolean read FModified write SetModified;
+  published
     property OnModify: TNotifyEvent read FOnModify write FOnModify;
   end;
@@ -38 +39 @@
   SDataFileName = 'Data file';
   SAllFiles = 'All files';
+
+const
+  AnyFileExt = '.*';
 
 
@@ -68 +72 @@
 function TDataFile.GetFileFilter: string;
 begin
-  Result := SAllFiles + '|*.*';
+  Result := SAllFiles + '|*' + AnyFileExt;
 end;
 
-procedure TDataFile.Assign(Source: TDataFile);
+procedure TDataFile.Assign(Source: TPersistent);
 begin
-  FFileName := Source.FFileName;
-  FModified := Source.FModified;
+  inherited;
+  if Source is TDataFile then begin
+    FFileName := TDataFile(Source).FFileName;
+    FModified := TDataFile(Source).FModified;
+  end;
 end;
 
@@ -85 +92 @@
 procedure TDataFile.SaveToFile(FileName: string);
 begin
+  FModified := False;
   Self.FileName := FileName;
-  FModified := False;
 end;
 
-constructor TDataFile.Create;
+constructor TDataFile.Create(AOwner: TComponent);
 begin
+  inherited;
   FileName := GetFileName + GetFileExt;
 end;
@@ -100 +108 @@
 end;
 
-
 end.