Changeset 134 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -142 +142 @@
   LoadedFiles: Integer;
 begin
-  TempFile := DefaultDataFileClass.Create;
+  TempFile := DefaultDataFileClass.Create(nil);
   try
     OpenDialog1.Filter := TempFile.GetFileFilter;
@@ -158 +158 @@
     for I := 0 to OpenDialog1.Files.Count - 1 do begin
       if FileExists(OpenDialog1.Files[I]) then begin
-        TempFile := TVCardFile.Create;
+        TempFile := TVCardFile.Create(nil);
         try
           TempFile.LoadFromFile(OpenDialog1.Files[I]);
@@ -179 +179 @@
   TempFileName: string;
 begin
-  TempFile := DefaultDataFileClass.Create;
+  TempFile := DefaultDataFileClass.Create(nil);
   try
     OpenDialog1.Filter := TempFile.GetFileFilter;
@@ -364 +364 @@
   TempFile: TDataFile;
 begin
-  TempFile := DefaultDataFileClass.Create;
+  TempFile := DefaultDataFileClass.Create(nil);
   try
     OpenDialog1.Filter := TempFile.GetFileFilter;
@@ -510 +510 @@
   FileClose;
   if FileClosed then begin
-    DataFile := DefaultDataFileClass.Create;
+    DataFile := DefaultDataFileClass.Create(nil);
     DataFile.OnModify := FileModified;
     TVCardFile(DataFile).VCard.OnError := DoError;