Changeset 134 for trunk/Forms/UFormContacts.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/Forms/UFormContacts.pas (modified) (3 diffs)

trunk/Forms/UFormContacts.pas

@@ -439 +439 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    TempFile := TVCardFile.Create;
+    TempFile := TVCardFile.Create(nil);
     try
       OpenDialog1.Filter := TempFile.GetFileFilter;
@@ -490 +490 @@
   Lines: TStringList;
 begin
-  PasteContacts := TVCardFile.Create;
+  PasteContacts := TVCardFile.Create(nil);
   Lines := TStringList.Create;
   try
@@ -532 +532 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    TempFile := TVCardFile.Create;
+    TempFile := TVCardFile.Create(nil);
     try
       SaveDialog1.Filter := TempFile.GetFileFilter;