Changeset 134 for trunk/Forms/UFormCompare.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/UFormCompare.pas (modified) (1 diff)

trunk/Forms/UFormCompare.pas

@@ -334 +334 @@
   Ext := ExtractFileExt(AFileName);
   if Ext = VCardFileExt then begin
-    with TVCardFile.Create do
+    with TVCardFile.Create(nil) do
     try
       LoadFromFile(AFileName);