Changeset 129 for trunk/Forms/UFormCompare.pas

Timestamp:

Apr 9, 2022, 11:52:13 AM (3 years ago)

Author:

chronos

Message:

• Added: TVCard as TComponent descendant.
• Modified: TContactsFile renamed to TVCardFile and moved into separate file.

File:

• trunk/Forms/UFormCompare.pas (modified) (3 diffs)

trunk/Forms/UFormCompare.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-  UContact, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
+  UVCard, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
   SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, UCommon,
   USynEditEx;
@@ -83 +83 @@
 
 uses
-  UCore;
+  UCore, UVCardFile;
 
 { TFormCompare }
@@ -334 +334 @@
   Ext := ExtractFileExt(AFileName);
   if Ext = VCardFileExt then begin
-    with TContactsFile.Create do
+    with TVCardFile.Create do
     try
       LoadFromFile(AFileName);
-      Result := AsString;
+      Result := VCard.AsString;
     finally
       Free;