Changeset 152 for trunk/Packages/VCard/VCard.pas

Timestamp:

Jun 6, 2023, 5:05:18 PM (12 months ago)

Author:

chronos

Message:

• Added: VCardProcessor class for processing contacts available from VCard package.
• Added: Normalize menu action for normalization of contact property values.

File:

• trunk/Packages/VCard/VCard.pas (modified) (4 diffs)

trunk/Packages/VCard/VCard.pas

@@ -1298 +1298 @@
 var
   I: Integer;
+  ContactProperty: TContactProperty;
 begin
   inherited Sort(TComparer<TContact>.Construct(CompareContactFullName));
-  for I := 0 to Count - 1 do
+  for I := 0 to Count - 1 do begin
     Items[I].Properties.Sort(TComparer<TContactProperty>.Construct(ComparePropertyName));
+
+    // Make sure VERSION is first property
+    ContactProperty := Items[I].Properties.GetByName('VERSION');
+    if Assigned(ContactProperty) then begin
+      Items[I].Properties.Move(Items[I].Properties.IndexOf(ContactProperty), 0);
+    end;
+  end;
 end;
 
@@ -1791 +1799 @@
   LinePrefix: string;
   CutLength: Integer;
+  Cut: Boolean;
 begin
   with Output do begin
@@ -1814 +1823 @@
         LineIndex := 0;
         LinePrefix := '';
+        Cut := False;
         while True do begin
           if UTF8Length(OutText) > ParentVCard.MaxLineLength then begin
+            Cut := True;
             CutLength := ParentVCard.MaxLineLength;
             if Encoding = veQuotedPrintable then begin
@@ -1837 +1848 @@
           end else begin
             Add(LinePrefix + OutText);
+            if Cut then Add('');
             Break;
           end;